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ABSTRACT 


As  an  augmentation  to  field  training,  the  author  identifies  a  need  for 
an  easily  available  light  infantry  platoon  combat  model  that  presents  a 
realistic  view  of  the  battlefield  environment.  To  meet  this  need,  the  author 
examines  the  feasibility  of  developing  a  realistic  three  dimensional  display 
of  a  terrain  representation  on  a  personal  computer.  The  target  computer 
provides  only  limited  graphics  support  with  an  Enhanced  Graphics  Adapter 
and  all  graphics  routines  are  implemented  in  softwaure.  Three  methods  of 
terrain  representation  aure  examined,  and  the  Dynamic  Tactical  Simulation 
(DYNTACS)  terrain  model  is  chosen  for  implementation.  The  DYNTACS 
representation  uses  a  specialized  triangle  drawing  procedure  written  in 
assembly  language,  the  painter's  algorithm  for  hidden  surface  removal,  and 
Defense  Mapping  Agency  Digital  Terrain  Elevation  Data.  The  implementation 
obtains  a  display  rate  between  1.2  and  1.5  seconds  on  a  80386  based  25 
MHz  computer.  The  author  concludes  that  with  the  addition  of 
enhancements  that  provide  the  capability  to  display  cultural  features,  and 
model  the  target  acquisition  process,  the  program  could  be  developed  into 
a  light  infantry  platoon  combat  model  or  a  research  tool  for  examining 
effects  of  human  factors  effects  on  tactical  decision  making. 
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I.  utroductioh 


The  purpose  of  this  thesis  is  to  develop  a  three  dimensioiial  display 
of  a  terrain  modd  on  a  personal  computer.  Such  a  model  can  be  utilised 
as  a  component  of  a  light  infantry  platoon  combat  model  for  training 
platoon  leaders  or  as  a  tool  for  conducting  experiments  to  measure  human 
factors  effects  on  Command  and  Control  (C^)  decisions.  Before  discussing 
the  development  of  the  terrain  model,  some  background  material  is 
necessary  and  is  presented  in  this  chapter. 

A.  BACKGROUND 

The  U.  S.  Army  has  identified  five  strategic  roles  for  itself,  one  of 
which  is  to  maintain  contingency  forces  for  immediate  combat  worldwide 
across  the  spectrum  of  conflict  [Ref  l:p.  6].  In  order  to  prepare  units  for 
this  role,  not  to  mention  as  a  deterrent  to  war,  the  Army  conducts 
deployments  to  m€my  countries  (e.g.,  Thailand,  South  Korea,  West  Germany, 
Honduras,  etc.).  These  deployments  provide  training  experiences  that 
cannot  be  gained  in  the  United  States  and  are  thus  necessary  to  insure 
the  Army  is  capable  of  performing  its  wartime  missions. 

To  insure  a  trained  and  ready  force,  the  U.  S.  Army  has  identified 
several  fundamental  imperatives.  Two  of  these  imperatives  are  of  interest 
in  this  thesis:  conduct  tough  and  realistic  training  and  develop  competent, 
confident  leaders  [Ref.  2:p.  II-5].  In  order  to  develop  competent,  confident 
leaders,  the  Army  advocates  leader  training  and  \init  training.  Leader 
traixiing  insures  a  technically  competent  leader,  while  unit  training  assists 
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in  developing  leaders  who  are  confident  in  executing  their  fxinction.  In 
order  to  conduct  realistic  training,  the  Army  uses  field  training  exercises 
that  are  planned  and  conducted  as  realistically  as  possible  within  safety 
constraints.  The  most  realistic  peacetime  training  available  to  the  Army 
occurs  at  Combat  Training  Centers  (CTC).  These  centers  and  their  roles 
are: 

•  The  National  Training  Center  (NTC)  —  provide  realistic  combat 
training  for  Battalion  and  Brigades  in  mid  to  high  intensity  scenarios. 

•  The  Joint  Readiness  Training  Center  (JRTC)  —  provide  realistic  combat 

training  for  non -mechanized  battalion  forces  in  low  to  mid 

intensity  scenarios. 

•  The  Combat  Meuieuver  Training  Center  (CMTC)  —  provide  a  NTC  type 
experience  for  units  in  the  Federal  Republic  of  Germany. 

•  Battle  Command  Training  Program  (BCTP)  —  provide  realistic  combat 
training  for  Corps  and  Division  commanders  and  their  staff.  [Ref.  2:pp. 
VI-1  -  VI-2] 

These  centers  provide  for  realistic  training  to  tinits  that  participate, 
but  no  matter  how  realistic  the  training,  several  ingredients  are  missing 
that  are  present  in  combat.  Firstly,  in  combat  people  die.  In  training, 
except  for  training  accidents,  people  do  not  really  die.  Secondly,  because 
people  do  not  get  killed,  the  psychological  stresses  and  fears  do  not 
manifest  themselves  the  same  way  they  do  in  combat.  Thirdly,  due  to 
resource  limitations,  the  representation  of  the  battlefield  environment  is 
limited.  The  terrain  and  the  enemy  are  limited  to  that  of  the  training 
center.  There  is  not  a  significant  number  of  noncombatants  represented 
at  these  training  centers  as  they  are  present  on  the  battlefield.  For 
example,  consider  how  many  civilians  were  in  Panama  during  Operation  Just 
Cause.  The  units  involved  in  that  operation  had  to  deal  with  Panamanian 
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civilians  in  addition  to  the  Panamanian  Defense  Force.  U.  S.  forces  were 
prepared  for  combat,  however  results  indicate  they  were  not  prepared  for 
the  Panamanian  civilians  and  the  impact  they  would  have  on  operations 
(e.g.,  looting,  firing  on  noncombatants,  etc.).  The  absence  of  these 
ingredients  in  unit  field  training  results  in  a  semi-sterile  environment  that 
does  not  completely  represent  the  environment  of  the  battlefield. 

One  solution  to  this  deficiency  in  training  is  to  increase  the  amovmt 
of  resources  involved  in  the  training  exercise  (Le.,  make  additional  soldiers 
play  the  role  of  noncombatants  and  build  more  training  facilities).  Given 
the  trend  in  today's  defense  budget  discussions  in  Congress,  this  may  not 
be  a  feasible  alternative.  Another  solution  wotQd  be  to  make  use  of 
available  resources,  such  as  personal  computers,  and  develop  a  computer 
simulation  to  round  out  the  experience  of  unit  leaders.  In  order  to 
develop  such  a  simulation,  it  must  first  be  determined  if  a  realistic  terrain 
display  can  be  developed  for  a  computer  with  limited  capability. 


B.  SUHMART  OF  SUBSEQUENT  CHAPTERS 

The  remainder  of  this  thesis  discusses  the  development  of  a  three 
dimensional  display  of  a  terrain  model  on  a  personal  computer.  It  consists 
of  five  more  chapters  that  address  the  following: 


•  Chapter  II  addresses  three  areas.  Firstly,  it  translates  the  need  for 
training  in  a  realistic  battlefield  environment  into  a  need  for  a  combat 
model  which  is  in  turn  translated  into  a  need  for  a  realistic  terrain 
display.  Secondly,  it  discxisses  some  design  considerations  and  why 
they  were  chosen.  Thirdly,  it  address  the  requirements  that  are 
derived  from  the  need  and  the  design  considerations. 

•  Chapter  III  addresses  terrain  modeling  methodology  in  four  areas. 
Firstly,  it  discxisses  the  selection  of  a  terrain  representation. 
Secondly,  it  discusses  the  Line  of  Sight  calculations  for  the  selected 
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representation.  Thirdly,  it  discusses  movement  modeling  on  the 
selected  representation.  Lastly,  it  discusses  detection  modeling  in  the 
battlefield  environment. 

•  Chapter  IV  discusses  the  display  program  that  was  dev^ped  in  order 
to  implement  the  three  dimensional  display  of  the  selected  terrain 
representation.  It  provides  an  overview  of  the  program  and 
addresses  some  of  the  implementation  issues  and  resulting  algorithms 
that  solved  some  of  the  problems. 

•  Chapter  V  dLSCusae.s  enhancements  to  the  program  for  the  displaying 
of  the  terrain  model  that  will  fully  implement  the  areas  discussed  in 
Chapter  II  that  have  not  been  implemented. 

•  Chapter  VI  provides  conclusions  that  are  obtained  from  implementation 
of  the  terrain  model. 
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n.  THE  NEED  AHD  THE  RBQOIREMBIITS 


A.  THE  NEED 

The  last  chapter  addressed  the  lack  of  a  complete  representation  of 
the  combat  environment  in  training.  Even  though  it  is  not  possible  to 
entirely  replicate  the  battlefield  environment  for  training,  it  is  possible  to 
simulate  some  of  its  qualities  through  computer  simulation.  A  computer 
simulation  could  theoretically  simulate  the  battlefield  environment  more 
robustly  than  in  training  exercises.  A  simulation  can  use  different  terrain 
by  changing  its  database.  The  enemy  can  also  be  changed  in  the  same 
manner.  Computer  representations  of  civilians  can  be  integrated  into  the 
simulation  to  provide  a  more  realistic  battlefield.  Such  a  simulation  could 
be  a  surrogate  for  experience  and  augment  a  leader's  understanding  of  the 
battlefield  in  conjunction  with  the  CTC. 

The  Army  currently  has  a  Family  of  Simulations  (FAMSIM)  that 

develops  and  sustains  skills  for  commanders  and  their  staffs  at  Battalion 

level  and  higher  [Ref.  2:p.  VI-4].  One  problem  with  these  types  of 

simulations  is  the  modeling  of  the  information  flow.  They  do  not 

adequately  model  bad  information  and  the  impact  it  has  on  decisions.  One 

solution  to  exposing  leaders  to  the  problems  of  dealing  with  bad 

information  is  to  improve  the  quality  and  qxiantity  of  battle  simulations  for 

commanders  and  leaders  at  all  levels  [Ref.  3:p.  52].  Smith  states: 

The  only  real  way  to  learn  at  the  tactical  level  is  to  practice 
continually  in  a  brutal  environment,  make  mistakes  (which  often  mean 
getting  you  ego  bruised),  get  good  counsel,  and  get  back  in  the  ring 
for  another  go.  We  can  no  longer  afford  to  teach  leaders  the  critical 
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art  of  fightin?  with  poor  information  during  one  or  two  high 
reputation  events  a  year.  They  must  be  repeatedly  immersed  in  a 
learning  environment  (like  the  combat  training  centers  at  Fort  Irwin 
and  Hohenfels  or  BABAS  ...  exercises)  and  be  allowed  to  make  mistakes 
without  a  reputation  cost  [Ref.  3:p.  53]. 

A  realistic  combat  simulation  that  incorporates  the  modeling  of  bad 

information  flow  would  meet  this  need. 

As  mentioned,  the  Army  has  simulations  that  are  structured  toward  the 

battalion  levd  and  above.  According  to  the  Operations  Field  Manual  100-5, 

...  modem  combat  requires  greater  dispersal  of  units,  the  quality  and 
effectiveness  of  junior  leaders  has  a  proportionately  greater  impact. 
Prior  to  combat,  senior  leaders  must  place  greater  emphasis  on  junior 
leader  development  [Ref.  4:p.  26]. 

One  way  to  place  greater  emphasis  on  junior  leader  development  is  to 
develop  a  simulation  to  support  the  training  of  leaders  at  the  company 
level  and  below.  Use  of  a  realistic  simulation  at  those  levels  could  augment 
a  leader's  experiences  from  training.  Since  developing  such  a  simulation 
is  a  complex  task,  to  reduce  some  complexity  its  development  can  start  at 
a  mid-level  such  as  platoon  level.  Units  that  have  the  contingency  mission 
to  deploy  anywhere  in  the  world  are  the  airborne,  ranger  and  light 
infantry  units.  Thus,  a  simulation  for  a  light  infantry  type  unit  seems 
most  appropriate. 

Two  ingredients  are  paramount  in  a  simulation  for  the  light  infantry 
platoon:  a  desire  to  realistically  represent  the  information  flow  and  to 
realistically  portray  the  battlefield  environment  to  the  user  of  the 
simulation.  Information  flow  is  actually  a  subcomponent  of  a  command  and 
control  system  in  terms  of  reports  and  orders. 
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1.  Conmand  and  Control  -  The  UnifTing  Thread 


Organisations  consist  of  people,  procedures  and  equipment.  The 
people  use  the  equipment  and  procedures  to  accomplish  a  mission.  The 
ingredient  that  integrates  these  into  an  organization  and  prevents  chaos 
is  command  and  control:  the  bonding  that  holds  the  organization  together 
on  the  battlefield.  A  better  understanding  of  this  concept  is  obtained  from 
the  author's  modified  form  of  Lawson's  Command  and  Control  Process  Mod^ 
in  Figure  1  [Ref.  5:p.  24]. 

Orr  introduces  and  explains  Lawson's  model  in  Combat  Operations 
C  I:  Fundamentals  and  Interactions.  The  Sense,  Process,  Compare,  Decide, 
and  Act  (S-P-C-D-A)  functions  are  unchanged  from  Lawson's  model.  Two 
modifications  have  been  made.  First,  the  inclusion  of  higher  and  lower 
level  forces  and  where  they  interface  with  the  model  is  shown.  Secondly, 
the  dotted  box  around  the  S-P-C-D-A  labeled  "PERSON"  is  added.  All 
external  input  to  the  person  box  occurs  through  the  Sense  function.  All 
output  of  the  "PERSON"  box  occurs  at  the  Act  function  as  reports,  orders, 
or  action  on  the  environment.  In  this  form  the  model  can  be  used  at  any 
level  to  represent  command  and  control  as  it  relates  to  the  individual. 
Depending  on  what  level  one  examines,  the  only  thing  that  changes  is  the 
definition  of  the  lower  levdLs,  higher  levels,  and  the  environment.  This 
model  provides  a  framework  for  modeling  information  flow  and  the  Command 
and  Control  process  in  the  Light  Infantry  Platoon  Combat  Model. 

2.  Bounding  the  Problem 

To  get  a  better  xinderstanding  of  the  Command  and  Control  (C2) 
process  and  how  it  relates  to  the  light  infantry  platoon,  the  "onion  skin" 
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ACTION 


Figure  1.  The  Modified  Lawson  Command  and  Control  Process  for 
Individuals 

C2  System  Bounding  techxuque  introduced  by  Sweet  [Ref.  6:p.  11]  is  useful. 
Figure  2  shows  the  "onion  skin"  as  applied  to  the  platoon  commaTid  and 
control  system.  Of  particular  interest  are  the  four  boundaries: 

•  Outside  the  platoon  force  boundary  but  within  the  platoon's 
environment  boundary  are  the  terrain,  weather,  adjacent  and  higher 
friendly  mats  and  enemy  forces. 
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LCHT  MFANTRT  PIATOGN  COMMND  AM)  CONTROL  SrST»4  BOUNDING 


Figure  2.  Bounding  the  Problem 

•  Outside  the  C2  system  boundary  but  within  the  force  boundary  are 
the  platoon's  organizational  forces  and  their  equipment. 

•  The  C2  system  is  the  platoon  command  and  control  system. 

•  The  squad  and  platoon  headquarters  command  and  control  systems  are 
subsystems  of  the  platoon  command  and  control  system. 

This  "onion  skin"  and  the  Command  and  Control  Process  Model  provide  an 
understanding  of  a  framework  within  which  to  develop  the  Light  Infantry 
Platoon  combat  model. 

As  mentioned,  the  development  of  such  a  combat  model  is  a 
complex  task,  much  beyond  the  scope  of  this  thesis.  In  order  to  develop 
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such  a  simulation,  there  is  a  need  to  determine  the  feasibility  of  developing 
an  inexpensive  method  to  display  the  battlefield  environment  to  the 
potential  user:  the  platoon  leader.  Specifically,  there  is  a  need  for  a 
realistic  display  of  the  terrain  and  wivironment  of  the  battl^ield.  If  this 
task  can  be  accomplished,  then  the  feasibility  of  developing  a  light 
infantry  combat  model  that  can  be  available  to  leaders  several  times  a 
month,  not  just  once  or  twice  a  year,  can  become  a  reality. 

B.  THE  DBSIGM  CHOICES 

Two  design  choices  are  paramount  to  the  development  of  a  display  for 
a  light  infantry  combat  model  due  to  the  constraints  they  impose.  One  is 
the  target  hardware  and  the  other  is  the  software  programming  package. 
The  target  hardware  is  the  microcomputer  based  on  the  Intel  8086  family 
of  processors.  The  software  package  is  Turbo  Pascal  5.5  Professional 
which  consists  of  Turbo  Pascal,  Turbo  Assembler  and  Turbo  Debugger. 
There  are  several  reasons  for  these  choices. 

•  The  microcomputer  is  readily  available  to  most  potential  users. 

•  Numerous  references  have  been  written  with  Pascal  as  the  discussion 
language. 

•  There  are  software  libraries  for  Turbo  Pascal  code. 

•  The  software  package  is  inexpensive.  Its  list  price  is  only  $250.00. 

•  The  comptiter  hardware  is  inexpensive,  especially  when  compared  to 
a  graphics  workstation.  Graphics  workstations  can  cost  anywhere 
from  $20,000.00  to  $100,000.  A  personal  computer  only  costs  $1,000.00 
to  $8000.00  depending  upon  the  configuration. 

Before  discussing  the  selection  of  the  terrain  representation,  a  description 
of  the  hardware  and  software  is  in  order. 
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1.  The  Mierooompuber 


The  imcrocompixter  baaed  on  the  Intel  8086  family  of  prooesaora 
haa  been  in  uae  since  the  early  1980's  when  IBM  introduced  the  first 
personal  computer.  The  Intel  8086  family  conaiats  of  the  8088,  8086,  80186, 
80286,  80386,  and  80486  processors.  All  are  backward  compatible  to  the 
8088  [Ref.  7:p.  ix]. 

The  operating  system  most  common  for  these  computers  is  the 
Disk  Operating  System  (DOS).  A  significant  limitation  of  DOS  is  the  ability 
to  address  only  one  megabyte  of  memory.  Of  this  one  megabyte,  less  than 
640  kilobytes  are  available  for  program  use.  There  are  ways  around  that 
barrier,  but  that  topic  is  beyond  the  scope  of  this  thesis  [Ref.  8:p.  7]. 
There  are  several  graphics  adapters  available  for  IBM  compatible 
microcomputers.  The  one  of  interest  in  this  thesis  is  the  Enhanced 
Graphics  Adapter  (EGA).  With  this  adapter  and  a  suitable  color  monitor, 
the  microcomputer  can  display  up  to  640  horizontal  by  350  vertical  pixels 
in  16  different  colors.  With  128  kilobytes  of  memory  installed,  the  EGA  in 
graphics  mode  can  utilize  a  two  page  capability.  This  is  useful  for 
drawing  to  one  page  while  displaying  the  other.  Once  drawing  is 
completed,  the  pages  can  be  flipped  to  give  an  instantaneous  change  in 
display.  This  is  a  technique  referred  to  as  page  flipping.  [Ref.  9:p.  105] 

The  majority  of  graphics  cards  for  the  microcomputer  rely  on  the 
microprocessor  to  perform  the  necessary  calculations  for  display  graphics. 
This  setup  is  quite  a  limitation  when  compared  to  graphics  workstations 
which  have  built  in  hardware  to  take  some  of  the  load  off  the  main 
processor.  Since  the  EGA  does  not  take  any  load  off  the  main  processor, 
algorithms  and  code  organization  are  critical  to  performance. 
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Thus,  the  two  primsry  concerns  about  the  microcomputer  are  the 
constraints  put  on  it  by  BOh  graphics  card  and  its  operating  system.  The 
available  program  memory  is  limited  to  less  than  640  kilobytes.  The 
resolution  of  display  is  Umited  to  640  by  350  pixels  in  resolution  and  only 
16  colors  can  be  displayed. 

2.  Pro5iramming  Language  Software 

The  programming  language  chosen  for  this  task  was  Object- 
Oriented  Turbo  Pascal  5.5.  This  version  of  Turbo  Pascal  provides  the  use 
of  object-oriented  programming  and  a  fairly  comprehensive  graphics  unit. 
The  graphics  unit  greatly  facilitates  the  development  of  a  graphics 
intensive  program.  The  use  of  the  object-oriented  programming 
methodology  will  greatly  enhance  later  development  of  the  full  combat  model 
as  soldiers,  squads  and  platoons  are  defined  as  objects. 

Turbo  Pascal  has  the  capability  to  link  with  Turbo  Assembler. 
This  capability  is  well  documented  in  references  on  Turbo  Pascal  and 
provides  the  flexibility  to  use  assembly  language  routines  where  needed  to 
enhance  speed  of  execution.  Speed  of  execution  is  especially  critical  in 
graphics  operations  since  slow  graphics  operations  mean  a  slow  display. 

Turbo  Pascal  has  some  disadvantages.  Code  written  in  Turbo 
Pascal  does  not  transfer  to  a  mainframe  computer  without  having  to  rewrite 
the  code  due  to  incompatibilities  of  Turbo  Pascal  with  standard  Pascal. 
Additionally,  Tiurbo  Pascal  does  not  provide  a  compiler  that  uses  the  32  bit 
capability  of  the  Intel  30386  processor.  Even  with  these  disadvantages, 
Tiurbo  Pascal  5.5  provides  more  capabilities  than  liabilities. 
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C.  REQUIREMEMTS  OF  THE  BATTLEFIELD  ENVIROMIIENT  MODEL 

The  requirements  for  simulating  the  battlefield  environment  in  a  high 
resolution  moddi,  such  as  the  light  infantry  combat  modd,  are  divided  into 
three  categories;  what  the  terrain  model  should  theoretically  represent, 
requirements  imposed  by  the  purpose  of  the  light  infantry  platoon  combat 
model,  and  the  requirements  imposed  by  the  constraints  of  the  computer 
system.  These  categories  represent  the  total  requirements  of  the  terrain 
model. 

The  three  theoretical  requirements  for  simulating  the  battlefield  are 
listed  below: 


•  The  environment  model  must  provide  a  terrain  profile  that  allows  for 
calculation  of  the  existence  or  nonexistence  of  Line  of  Sight  (LOS) 
between  individual  entities  on  the  battlefield. 

•  The  environment  model  must  provide  a  representation  of  the  terrain 
sui&ice,  vegetation,  and  man-made  features  so  that  concealment  from 
observation,  cover  from  direct  fire  weapons,  and  mobility  can  be 
determined. 

•  The  environment  model  mxist  provide  a  representation  of  the 
atmosphere  over  the  battlefield  in  terms  of  light  conditions,  weather, 
and  obscurants  such  as  smoke  and  fog. 

A  model  of  the  battlefield  environment  that  satisfies  these  three  theoretical 

requirements  is  needed  for  a  high  resolution  model.  [Ref.  10:p.  3-1] 

The  intended  use  of  the  combat  model  into  which  this  environment 

mod^  will  be  integrated  identifies  two  additional  requirements. 


•  The  environment  model  must  provide  for  rapid  creation  of  different 
environments,  thus  providing  the  capability  to  simulate  battlefields 
anywhere  in  the  world.  Light  Infantry  forces  need  to  train  for 
world-wide  deployment  to  accomplish  their  mission. 

•  The  display  of  the  terrain  representation  for  the  environment  model 
mtist  provide  a  realistic  display  that  does  not  confuse  the  user.  In 
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particular,  it  should  siake  use  of  three  dimensioiial  graphics  and 
present  a  view  as  if  the  user  is  at  that  location  on  the  groimd. 

These  two  requirements  are  important  if  the  model  is  to  enhance  experience 
of  platoon  leaders  when  used  for  training.  If  the  model  is  used  as  a  tool 
for  experimentation,  the  capability  to  display  any  sitxiation  anywhere  in  the 
world  will  provide  the  researcher  with  a  flexible  tool  that  does  not  impose 
undue  constraints. 

The  target  computer  system  imposes  several  other  requirements  on  the 
environment  model  in  addition  to  the  five  already  mentioned. 

•  The  memory  reqvdrements  of  the  representation  cannot  exceed  200 
kilobytes.  This  will  allow  approximately  320  kilobytes  of  memory  for 
the  combat  model  program. 

•  The  complexity  of  the  display  must  be  minimized  in  order  to  keep  the 
time  to  draw  the  terrain  on  a  display  in  three  dimensions  to  a 
minimum.  A  draw  time  over  ten  seconds  is  unacceptable. 

These  last  two  requirements  become  constraints  on  the  design  of  the  model. 

The  seven  requirements  presented  provide  for  a  realistic  three 

dimensional  display  of  any  desired  terrain.  An  implementation  that  satisfies 

these  requirements  will  provide  the  capabilities  needed  for  the  purpose  of 

the  light  infantry  combat  model.  The  difficult  task  is  transforming  these 

requirements  into  a  usable  product.  The  next  chapter  addresses  the 

selection  of  a  terrain  representation  and  its  capabilities  that  makes  this 

transformation  possible. 
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m.  TERRAIH  NODBLDIG  METHODOLOGY 

A.  SBLECnOH  OF  A  TERRAIN  REPRBSERTATIOM 

The  method  of  representing  terrain  has  a  significant  impact  on  the 
capabUitiea  of  any  combat  model.  It  affects  the  ability  to  determine 
geometric  line  of  sight  between  two  entities  on  the  battlefield.  Also,  since 
the  computer  will  have  to  make  line  of  sight  calculations  between  all 
entities  on  the  battlefield  at  specified  intervals,  the  speed  with  which  the 
computer  can  accomplish  this  calculation  becomes  critical.  Finally,  since 
the  reqvdrement  is  to  present  the  terrain  in  three  dimensional  graphics, 
the  method  chosen  will  affect  display  time.  On  the  microcomputer,  longer 
display  draw  times  imply  more  load  on  the  microprocessor  in  order  to 
accomplish  display  calculations  instead  of  battle  calculations.  The  end 
result  is  a  slower  running  simulation. 

Due  to  the  requirement  to  display  the  terrain  in  three  dimensional 
graphics,  the  choice  of  accepted  methods  of  terrain  representation  is 
narrowed  to  what  is  known  as  surface  terrain  models.  A  surface  model  is 
one  that  represents  the  surface  of  the  terrain  in  such  a  way  that  it 
approximates  the  true  continuous  appearance  of  the  terrain.  This 
representation  is  sometimes  referred  to  as  macro  terrain.  Macro  terrain 
refers  to  capturing  the  major  detail  of  the  terrain,  such  as  a  hill,  but  not 
featxures  such  as  forest,  vegetation,  and  small  boulders.  A  picture  of  an 
ideal  surface  model  representation  is  at  Figure  3.  Mote  how  this 
representation  captures  the  attributes  of  the  appearance  of  terrain. 
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Figure  3.  Surface  Model  of  Terrain 


There  are  three  methods  for  representing  terrain  that  approximate 
Figure  3.  The  three  methods  are  utilized  in  the  Dynamic  Tactical 
Simulation  (DYNTACS),  the  Individual  Unit  Action  (lUA),  and  the  Simulation 
of  Tactical  Alternative  Responses  (STAR)  combat  models  [Ref.  10:pp.  3-8  - 
3-9].  Each  of  these  representations  are  possible  candidates  for  the  model. 

1.  The  DTNTACS  Terrain  Model 

The  first  candidate  to  represent  the  macro  terrain  is  that  used 
by  DYNTACS.  It  takes  as  input  the  elevation  of  points  that  are  uniformly 
spaced  at  a  specified  interval.  These  points  are  grouped  to  form  squares. 
Each  square  is  divided  into  two  triangles  with  a  diagonal  going  from  the 
upper  left  comer  to  the  lower  right  corner.  This  methodology  is  depicted 
in  Figure  4. 

By  breaking  the  square  into  two  triangles,  it  is  possible  to 
represent  the  square  area  with  two  triangular  planes,  each  forming  a 
continuous  surface.  For  example,  imagine  a  table  with  four  legs  of  unequal 


length.  One  plane  (Le.,  the  floor)  will  not  intersect  the  bottoms  of  all  four 
legs  slmultaneovisly.  Now  imagine  a  table  with  three  legs  of  xmequal 
length.  No  matter  what  the  length  of  those  three  legs,  a  plane  will 
intersect  the  bottoms  of  all  three  legs  simultaneously. 

With  the  DYNTACS  terrain  model,  these  diagonal  lines  and  aU  lines 
forming  the  square  are  common  edges  of  several  triangles.  The  result  is 
a  representation  that  has  facets  similar  to  a  cut  diamond.  It  is 
characterised  by  discontinxiities  at  the  edges.  Theoretically,  if  one  makes 
the  triangles  small  enough,  these  changes  may  not  be  noticeable  to  the 
naked  eye. 

In  this  representation,  the  coordinates  of  the  three  vertices  of 
the  triangle  are  known.  Since  the  triangle  is  actually  a  planar  surface 
when  viewed  in  three  dimensions,  the  elevation  of  an  object  located 
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anywhere  on  that  surface  is  easily  determined  using  formulas  of  plane 
geometry.  To  determine  line  of  sight  between  two  entities,  again  geometry 
is  used  to  determine  if  a  line  from  the  observer  to  the  target  intersects 
any  of  the  triangular  surfaces  between  them.  The  algorithms  for  this 
procediire  are  clearly  documented  in  The  Tank  Weapon  System.  [Ref.  ll:pp 
57-86] 

There  are  several  advantages  to  the  DYNTACS  terrain  model. 
First,  the  model  provides  the  capability  to  utilize  Digital  Terrain  Elevation 
Data  (DTED)  from  the  Defense  Mapping  Agency  (DMA).  DMA  produces  two 
levels  of  DTED,  referred  to  as  Level  One  and  Level  Two.  Both  express 
elevations  in  meters.  A  data  file  of  DTED  provides  the  elevations  of  a 
matrix  of  uniformly  spaced  points.  Level  One  DTED  has  an  approximate 
spacing  of  100  meters.  Level  Two  DTED  has  an  approximate  spacing  of  30 
meters.  The  DTED  format  conforms  exactly  to  the  requirements  for 
elevation  data  in  the  DYNTACS  terrain  model  and  provides  a  rapid 
capability  to  generate  different  battlefields.  [Ref.  12:p.  1] 

A  second  advantage  of  the  DYNTACS  model  is  the  requirements  for 
memory  storage  are  reduced.  As  long  as  the  location  of  the  lower  left 
comer  and  the  interval  between  elevation  points  are  stored  as  constants, 
then  only  the  elevation  data  need  to  be  stored  in  a  matrix.  There  is  no 
requirement  to  store  a  three  dimensional  coordinate  for  each  elevation 
point.  For  a  large  terrain  database,  this  capaJoility  greatly  reduces  the 
storage  requirements.  Most  models  store  the  data  this  way,  as  does  DMA 
on  its  DTED  files.  [Ref.  ll:pp.  58-61] 
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A  final  advantage  of  the  DYMTACS  terrain  mod^  is  that  the  three 
dimensional  displaying  of  polygons  is  well  documented.  Any  reference  on 
three  dimensional  graphics  addresses  this  subject.  The  ability  to  find 
such  documentation  is  important  when  it  comes  to  implementing  the  method. 

The  DYMTACS  terrain  mod^  does  have  a  major  disadvantage.  It 
does  not  take  advantage  of  terrain  that  may  be  uniform  over  a  large 
expaxise.  Consider  a  piece  of  terrain  that  is  relativdy  flat  for  several 
kilometers.  Such  a  piece  could  easily  be  represented  by  only  two  triangles 
if  unequal  spacing  of  paints  is  allowed.  Instead  the  DYMTACS  terrain  model 
will  represent  this  piece  of  terrain  with  several  hundred  triangles. 

2.  The  lUA  Terrain  Modd 

A  second  alternative  to  representing  the  macro  terrain  is  the  lUA 
terrain  model.  Similar  to  DYMTACS,  the  lUA  terrain  model  represents 
terrain  as  triangular  surfaces.  Instead  of  uxxiform  spacing,  however,  the 
lUA  method  utilizes  nonuniform  spacing.  The  modeler  places  the  vertices 
wherever  he  desires  to  represent  the  shape  of  the  terrain.  Calculating 
LOS  with  this  model  is  similar  to  DYMTACS  with  one  exception.  The 
calculations  are  more  involved  because  a  determination  has  to  be  made  as 
to  which  triangle  the  entity  occupies,  since  the  spacing  of  points  is  not 
uniform.  [Ref.  10:p.  3-9] 

Thus,  the  lUA  model  offers  the  major  advantage  of  making  use  of 
only  those  data  points  necessary  to  represent  the  terrain.  In  locations 
where  the  number  of  data  points  required  to  represent  the  terrain  is  small, 
the  drawing  of  the  display  will  be  quick.  A  variant  of  this  representation 
is  what  Lee  Adams  advocates  in  building  a  flight  simulator  for  a 
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microcomputer  [Ref.  13:pp.  243-280].  In  that  variant,  any  polygonal  shape 
may  be  used.  From  this  author's  examinaticn  of  several  microcomputer 
’  games  that  have  three  dimensional  terrain  graphics,  it  appears  to  be  the 
method  used  by  them. 

There  are  several  disadvantages  to  thia  model.  First,  the  ability 
to  incorporate  DMA  DTED  is  limited.  Without  developing  a  program  that  can 
convert  DTED  to  a  format  for  this  representation,  DTED  is  of  no  use.  That 
means  that  someone  has  to  create  the  data  points  for  a  given  piece  of 
terrain.  This  disadvantage  would  significantly  affect  the  ability  to  rapidly 
develop  different  scenarios.  Another  problem,  already  discussed,  was  the 
amount  of  computation  required  to  determine  what  triangle  the  entity 
occupies.  In  a  similar  fashion,  LOS  calculations  would  become  difficult  as 
a  search  wovtld  be  required  to  determine  which  triangles  are  between  the 
observer  and  target.  These  disadvantages  are  significant. 

3.  The  STAR  Terrain  Model 

The  third  alternative  for  representing  macro  terrain  is  the 
representation  used  by  the  STAR  combat  model.  The  STAR  terrain  model 
is  parametric  in  nature.  Instead  of  using  stored  digital  data  for 
elevations,  the  STAR  model  uses  a  slightly  altered  bivariate  normal 
probability  density  function  to  represent  a  hill  mass.  Several  of  these 
equations  together  can  represent  a  battlefidd.  To  represent  a  piece  of 
real  terrain  it  is  necessary  to  fit  these  parametric  eqxiations  to  a  contour 
map.  [Ref.  14:p.  7] 

The  advantage  of  this  representation  is  that  it  reduces  the 
amount  of  storage  required  to  represent  terrain.  For  a  ten  kilometer  by 
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DTNTACS  terrain  model  is  the  model  of  choice  for  representing  the  macro 
terrain. 

5.  Siaulating  the  Micro  Terrain 

The  DTED  does  not  provide  high  enough  resolution  to  capture  the 
small  folds  in  the  terrain.  The  macro  terrain  is  represented  by  planes 
with  smooth  surfaces.  In  order  to  simulate  the  micro  environment,  an 
additional  technigiie  is  needed.  Placing  a  soldier  in  a  deliberate  prepared 
position  is  relatively  easy;  simply  change  his  height.  The  real  issue  is  a 
method  of  representing  the  somewhat  random  folds  in  terrain  a  soldier  or 
vehicle  on  the  move  would  be  able  to  find  when  engaged  by  an  enemy 
force. 

Documentation  on  the  STAR  terrain  model  does  not  address  this 
iss'ue,  but  the  DYNTACS  terrain  mod^  does.  In  the  DYNTACS  modri  a 
random  adjustment  is  made  to  an  object’s  elevation  based  on  a  Monte  Carlo 
process.  This  adjustment  can  be  a  positive  or  negative  adjustment.  In 
order  to  accomplish  this  procedure,  a  normal  probability  distribution  is 
used.  The  variance  for  this  distribution  is  determined  from  a  table  of 
predictions  that  are  output  from  a  separate  model:  the  Environmental 
Model.  A  similar  technique  is  appropriate  for  the  terrain  model  being 
developed.  [Ref.  ll:pp.  73-76] 

6.  Representing  Forest  and  Other  Terrain  Features 

There  eure  three  methods  of  representing  forest  and  other  terrain 
features  such  as  man-made  objects: 

•  Account  for  all  trees  and  man-made  objects  individually. 
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•  Aaaign  a  code  to  each  triangle  that  indicates  the  type  of  featiire,  its 
height,  and  effect  on  line  of  sight.  This  is  similar  to  the  technique 
used  on  a  hex  grid  terrain  model. 

•  Represent  forest  and  built  up  areas  by  a  geometric  shape,  such  as  an 
ellipae,  that  is  fitted  to  terrain  areas  as  appropriate.  The  DYNTACS 
and  STAR  terrain  mod^  use  this  technique. 

Acco\mting  for  all  features  on  the  battlefield  is  not  an  option  on 
a  microcomputer  unless  the  number  of  trees  and  man-made  objects  is  small. 
The  memory  requirements  for  any  substantial  number  of  objects  would  be 
prohibitive.  Since  the  model  is  to  be  used  to  represent  various  locations 
in  the  world,  some  locations  will  have  numeroxis  objects.  Thus,  this 
technique  can  be  eliminated. 

The  remaining  two  choices  are  possible  solutions  for  the 
microcomputer  environment.  The  assignment  of  a  code  to  each  triangle 
would  not  only  allow  the  addition  ot  the  feature  height  to  the  surface 
height  when  calculating  LOS,  but  it  would  also  allow  for  the  ability  to  draw 
the  features  in  that  triangle  when  it  is  displayed.  The  other  option,  using 
geometric  shapes,  is  feasible,  but  would  be  more  difficult  to  implement  in 
terms  of  drawing  the  features.  This  difficulty  becomes  more  evident  when 
one  examines  the  mechanics  of  displaying  the  terrain.  This  topic  is 
addressed  in  Chapter  V. 

Once  a  method  is  decided  upon,  there  is  still  the  question  of  the 
data  source  for  the  forests  and  man-made  objects.  One  option  is  to  use 
maps  of  the  area  of  interest.  Another  option  is  to  use  DMA  Digital  Feature 
Analysis  Data  (DFAD).  Similar  to  DTED,  DMA  produces  two  levels  of  DFAD 
data:  Level  One  and  Level  Two.  Levd  One  DFAD  approximates  the  density 
of  1:200,000  scale  cartographic  products.  Level  Two  DFAD  approximates  the 
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density  of  a  1:50,000  scale  cartographic  product.  Again,  due  to  the 
microcompxiter  memory  constraints,  xise  of  DPAD  may  be  prohibitive.  These 
are  alternatives  that  need  fxirther  examination  beyond  the  scope  of  this 
thesis.  [Ref.  15:pp.  1-2] 

B.  LINE  OF  SIGHT  CALCULATIONS  FOR  THE  DTNTACS  TERRAIN  MODEL 

Since  the  DYNTACS  terrain  model  is  the  model  of  choice  for 
representing  the  macro  terrain,  it  is  appropriate  to  explain  the  calculation 
of  LOS.  In  order  to  calculate  LOS,  the  elevation  of  the  observer  and  the 
target  have  to  be  determined.  Once  this  information  is  determined,  a  check 
is  made  to  see  if  the  observer  has  geometric  LOS  to  the  target. 

1.  Determining  ELevation  at  a  Location  on  the  Terrain  Model 

Calculation  of  the  elevation  for  a  point  on  the  surface  of  the 
terrain  is  relatively  easy  iE  the  data  are  stored  in  the  correct  format. 
This  format  involves  arranging  the  elevation  data  into  an  array.  In  order 
to  cut  down  on  calculations,  the  ^evation  data  shoxild  be  divided  by  the 
interval  between  the  elevation  points  before  storing  in  the  array.  This 
scaling  allows  the  indexes  in  the  array  and  the  data  to  be  on  the  same 
scale. 

To  illustrate  this  scaling  and  the  elevation  routine,  a  step  by  step 
example  is  given.  This  example  will  be  kept  simple  and  will  use  only  a 
two-by-two  array  shown  in  Table  I.  The  coordinate  system  used  in  Table 
I  is  the  left-handed  coordinate  system.  To  visualise  this  coordinate 
system,  imagine  you  are  facing  North.  If  you  are  standing  at  the  origin, 
the  positive  z  axis  is  straight  ahead  to  the  North.  To  your  right,  or  the 
East,  is  the  positive  x  direction.  Straight  up  is  the  positive  y  axis.  It  is 
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the  z  coordixiate  that  adds  the  third  dimension  or  depth.  This  is  the  world 
coordinate  system  that  will  be  used  throughout  this  thesis.  Finally,  notice 
that  the  x  and  b  interval  between  data  paints  in  Table  I  is  100  meters. 
TABLE  I.  ELEVATION  DATA  FOR  EXAMPLE 


DATA 
POINT  NO. 

X 

COORDINATE 

(METERS) 

Z 

COORDINATE 

(METERS) 

Y 

ELEVATION 

(METERS) 

1 

0 

0 

130 

2 

0 

100 

140 

3 

100 

0 

135 

4 

100 

100 

120 

If  the  data  in  Table  I  are  organised  into  an  array  structure,  some 
of  the  data  stored  can  be  eliminated  since  the  points  are  uniformly  spaced. 
An  array  that  has  the  same  information  is  at  Table  II.  Notice  that  the  only 
data  stored  in  the  array  are  the  elevation  data  which  have  been  scaled  by 
dividing  by  100.  The  i  index  corresponds  to  the  x  coordinate  divided  by 
100.  The  j  index  corresponds  to  the  z  coordinate  divided  by  100.  Table 
II  provides  the  same  information  as  Table  I,  but  requires  less  memory  for 
storage.  The  only  data  stored  are  the  elevation  data.  The  location  in  the 
array  provides  the  other  two  coordinates.  Using  this  technique,  the 
memory  storage  requirements  are  reduced  by  two-*thirds  of  the  requirement 
for  Table  I. 

The  method  of  data  presentation  in  Table  II  is  the  same  as  if  the 
points  were  arranged  on  the  ground  and  the  reader  was  above  the  ground 
looking  down  at  the  points.  The  top  of  the  paper  is  North.  Using  the 
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TABLE  n.  ELEVATION  DATA  ARRANGED  XN  AN  ARRAY 


I 


1.40 


1.20 


1.30 


1.35 


DYNTACS  methodology/  the  two  by  two  array  would  only  represent  one 
square  divided  into  two  triangles.  Assuming  the  bottom  left  comer  of  this 
square  is  referred  to  as  (i/j),  the  lower  triangle  would  consists  of  (i,j), 
(i/j-t-l)/  and  (i-t-l/j).  The  upper  triangle  would  be  formed  with  the  triple 
(i-t-l/j-t-l)/  (i/j-t-l)/  and  (i-t-l/j).  Substituting  i=0  and  j=0  into  the  above  triples 
gives  the  correct  indices  into  the  array  for  the  appropriate  triangles. 

Continuing  the  example/  assume  that  an  observer  is  located  at 
world  coordinates  x  ^  0.02  and  z  »  o.02  and  a  target  is  located  at  x  ~  0.8 
and  z  s  0.8.  Target  and  observer  heights  are  both  0.018.  These  world 
coordinates  and  heights  are  in  hundreds  of  meters,  the  same  scaling  as  the 
array.  Does  a  LOS  exist?  To  answer  this  question,  first,  one  must 
determine  the  elevations  at  the  locations  of  the  target  and  the  observer. 
The  steps  to  determining  the  elevation  are: 

•  Determine  the  triangle,  either  the  upper  or  lower,  in  which  the 
observer  or  target  is  located  by  using  equation  1  below. 

•  If  the  entity  is  in  the  lower  triangle  use  equation  2A  below. 

•  If  the  entity  is  in  the  upper  triangle  vise  equation  2B  below.  [Ref. 
11:63] 

Equation  1  is  a  condition  statement.  It  is 
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V  obmrvtr  ir  on  upper  trtan^ 

ebt  oboerver  is  on  lower  ttiangk 


The  values  for  i  and  j  aure  easily  determined  by  truncating  the  fractional 
portion  of  the  x  and  z  location  of  the  observer.  The  remaining  integers 
are  the  indices.  Equation  2A  is 

yM,  j*\*^^*  ^  ^  ry^, 


Equation  2B  is 


y^-  yi.j*^,k,-^M,ryi,p^(y^-J)(yu*ryi,P 


In  these  equations,  the  y  values  are  the  elevation  for  a  location 
identified  by  the  subscript.  The  subscripts  i  and  j  are  indices  into  the 
array  table.  To  determine  the  elevation  of  the  target,  wherever  the 
formula  uses  observer  information,  use  target  information. 

Continuing  with  the  example,  using  equation  1  reveals  that  the 
observer  is  in  the  lower  triangle  ((.2-*-.2)  is  less  than  (O+O-fl)).  Since  the 
observer  is  in  the  lower  triangle,  the  ground  elevation  at  his  location  is 

1.30  (0.2  -  0X1.35  -  1.3)  ♦  (02  -  0X1.4  -  1.3)  -  1.33 

Using  the  same  procedure,  the  target  is  determined  to  be  in  the  upper 
triangle  and  its  ground  Ovation  is  1.27. 
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Th«  n«ct  step  is  to  add  the  respective  heights  of  the  target  and 
observer  to  their  ground  elevations.  If  micro  terrain  effects  are  to  be 
included,  then  this  positive  or  negative  value  must  be  added  also.  For 
this  example,  micro  terrain  effects  will  not  be  included.  Therefore,  the 
determined  elevations  of  the  top  of  the  observer  and  target  are: 

-  1.33  4  0.18  -  1.51 

-  1-27  4  0.18  -  1.45 

2.  Line  of  Sight  Routine 

In  the  last  section,  determination  of  the  elevations  of  a  target  and 
observer  were  illustrated.  In  order  to  determine  if  geometric  LOS  exist 
between  an  observer  and  a  target,  two  additional  procedures  are  required. 
First,  the  model  needs  a  procedure  to  determine  where  a  top  down 
projection  of  the  LOS  onto  the  terrain  model  intersects  the  edges  of  the 
triangular  planes. 

Figure  5  presents  two  views  of  a  situation  for  determining  LOS 
between  an  observer  and  two  targets.  The  side  view  shows  that  the  LOS 
exists  to  target  one  but  not  to  target  two.  From  the  top-down  view  this 
is  not  obvious.  What  is  depicted  in  the  top-down  view  are  the 
intersections  of  the  LOS  projection  onto  the  edges  of  the  triangular  planes. 
The  DYNTACS  model  refers  to  these  edges  as  "plane  departure  points."  It 
is  at  the  plane  departiure  paints  that  the  maximum  and  minimum  elevations 
occur.  If  the  elevations  of  the  entey  and  exit  paints  of  the  plane  are  less 
than  the  elevation  of  the  LOS  line  at  those  paints  (see  side  views),  then 
any  point  between  the  entry  and  exit  point  is  below  the  LOS  line.  In 
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othar  words,  all  the  model  needs  to  check  are  the  plane  departure  points 
between  the  observer  and  target.  If  all  of  these  are  below  the  LOS  line, 
geometric  LOS  exists.  Therefore,  the  model  needs  a  procedure  to  determine 
the  plane  departure  points  between  the  observer  and  the  target.  [Ref.  ll:p. 
78] 


Top  Down  View 

Tqt  1 


Side  View  Tgt  1  Side  View  Tgt  2 

Figure  5.  Line  of  Sight  From  Observer  to  Targets 


Once  the  model  determines  the  plane  departure  points,  it  requires 
a  second  procedxure  to  determine  if  LOS  exist.  The  procediire  needs  to 
check  each  plane  departure  point's  elevation  against  the  elevation  of  the 
LOS  line  at  the  same  x  and  z  location.  Before  doing  this,  if  the  triangle 
has  been  coded  as  having  vegetation,  then  the  vegetation  height  must  be 
added  to  the  elevation  of  the  plane  departure  point.  The  results  will 
inform  the  model  only  that  LOS  exists  or  does  not  exist.  To  determine  if 
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only  a  portion  of  the  target  is  visible,  the  mod^  can  do  a  second  check 
where  the  height  of  the  target  is  only  half  of  its  normal  height.  If  LOS 
does  not  exist  to  the  target  midpoint,  then  the  target  is  only  partially 
visible.  If  LOS  exist  to  the  midpoint,  the  model  assumes  a  completely 
exposed  target.  Due  to  the  length  of  the  procedures  to  determine  the 
plane  departure  points  and  to  check  LOS,  their  algorithms  are  enclosed  in 
Appendices  A  and  B,  respectively.  [Ref.  ll:p.  83] 

C.  MOVEMENT  MODELING 

Mobility  over  the  terrain  is  a  function  of  several  variables;  the  three 
most  important  being  slope  of  the  terrain,  soil  conditions,  and  type  of 
vegetation.  To  properly  model  movement  requires  the  development  of  a 
functional  equation  that  relates  slope,  soil  conditions,  and  vegetation.  This 
equation  shoiild  result  in  a  percentage  of  a  maximum  movement  speed.  The 
development  of  such  an  equation  is  beyond  the  scope  of  this  thesis. 

The  determination  of  the  slope  on  the  terrain  is  provided  in  an 
equation  developed  as  part  of  the  DYNTACS  model  [Ref.  ll:p.  66].  It  solves 
for  the  angle  of  the  slope  using  geometric  relationships.  The  equation  is 
as  follows: 


Skyw  -  <-l.  2.  •  • 

<*( 

when 


(Pf,  q)~plane  departen  points; 

i-1, .  .  .  ,  ii; 

r,  -  elevation  at  (p^  q) 
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With  the  above  equation,  the  model  can  easily  determine  the  slope  of 
the  terrain  at  any  location  on  the  batlefield.  Determination  of  the  values 
for  soil  conditions  and  vegetation  depends  on  the  representation  method 
used  in  the  model.  The  easiest  SMthod  is  coding  the  triangle  with  the 
values  for  vegetation  and  soil  conditions  as  mentioned  earlier.  A  more 
realistic  representation  is  the  use  of  geometric  shapes  to  map  the  areas 
with  similar  vegetation  or  soil  conditions,  but  the  coded  triangle  method  is 
faster  for  determining  what  codes  apply  to  a  given  location. 

D.  MODELING  TARGET  ACQUISITION 

Even  though  geometric  LOS  may  exist  between  an  observer  and  a 
target,  its  existence  does  not  mean  the  observer  detects  the  target.  There 
are  several  reasons  in  the  real  world  that  detection  might  not  occur.  They 
are 

•  The  observer  is  not  loolung  in  the  direction  of  the  target. 

•  The  observer  cannot  distinguish  the  target  from  the  background. 

•  Environmental  factors  may  prevent  him  from  detecting  the  target.  For 
example,  there  may  be  fog  or  dust  obscuring  the  target,  or  it  could 
be  daurk. 

•  The  observer  is  not  alert. 

•  The  observer  is  suppressed  by  enemy  fire. 

There  are  two  methodologies  for  modeling  the  detection  process  that 
take  the  most  important  reasons  for  non-detection  into  consideration:  the 
Night  Vision  and  Electro-Optical  Laboratories  (NVEOL)  detection  model  and 
the  continuous  looking  detection  model.  According  to  Hartman  [Ref.  10:p. 
4-24]  the  NVEOL  detection  model  is  the  better  of  the  two  methods. 
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The  NVEOL  model  coxisiders  and  evalviates  the  following  events  in 
order  to  determine  if  detection  occurs  [Ref.  10:p.  4-24  -  4-25]: 

•  the  emitted  or  reflected  target  signature 

•  transmission  of  the  target  signature  through  the  atmosphere 

•  the  orientation  of  the  observer's  sensor 

•  the  processing  of  an  attenuated  signal  by  the  sensor  to  form  an  image 

•  the  viewing  of  the  display  image  and  the  response  by  the  xiser. 

By  considering  all  of  these  events,  the  NVEOL  model  allows  for  an  accurate 
representation  of  the  process  of  detection  and  how  it  is  affected  by 
battlefield  conditions  such  as  smoke,  fog,  darkness,  etc.  In  a  model  that 
has  the  Itucury  of  adequate  computational  power,  it  is  the  method  of  choice. 

The  second  method,  the  continuous  looking  model  [Ref.  10:p.  4-12] 
represents  the  process  of  detection  as  the  cumulative  distribution  function 
of  the  negative  exponential.  The  parameter  for  this  process  is  the 
detection  rate  which  needs  to  be  derived  from  detection  experiments.  The 
advantage  to  this  equation  is  it  keeps  the  process  of  detection 
determination  simple.  Everything  is  rolled  into  the  one  equation.  Different 
parameters  are  assigned  based  on  the  conditions.  Because  of  its  simplicity, 
it  is  the  method  most  promising  for  the  personal  computer  environment. 
Implementing  the  continuous  looking  model  in  the  program  would  not 
req\2ire  a  substantially  amount  of  work.  The  real  work  will  be  in  getting 
some  valid  parameters  for  the  model  based  on  already  available  data  or  new 
experiments. 
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IV.  DISPLATIH6  THE  DTHTACS  REPRESEHTATIOH 


The  last  chapter  disciissed  the  methodology  for  developing  a  personal 
computer  based  simulation  using  the  DYNTACS  representation  for  terrain. 
The  intent  of  this  chapter  is  to  illustrate  the  various  considerations  and 
decisions  needed  to  implement  a  three  dimensional  display  of  the  DYNTACS 
terrain  model  on  a  microcomputer.  Because  of  the  limitations  of  the 
Enhanced  Graphics  Adapter  (EGA),  all  of  the  procedures  have  to  be 
implemented  in  the  software. 

To  fully  explore  the  feasibility  of  using  the  microcomputer,  a  program 
was  built  from  scratch.  The  program  created  to  implement  the  three 
dimensional  display  of  the  DYNTACS  terrain  model  has  code  that  is  divided 
into  three  categories: 

•  Unmodified  code  that  was  adapted  directly  from  existing  sources  and 
programs. 

•  Modified  code  from  existing  sources  and  programs.  In  this  category 
is  code  that  needed  some  modifications  or  translation  from  another 
language. 

•  Code  written  to  implement  known  algorithms.  This  category  also 
includes  code  written  as  a  derivative  of  known  algorithms  and  created 
as  innovative  solutions  to  a  problem. 

Although  there  were  some  very  useful  procedures  available  in  the  first  two 
categories,  the  majority  of  the  code  for  the  program  is  in  the  third 
category.  Appendix  C  contains  a  listing  of  the  interface  portion  of  all 
uxdts  used  by  the  program.  The  listing  classifies  the  category  for  the 
code  of  each  procedure  according  to  the  above  list. 
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To  insvire  the  reader  understands  what  the  program  does,  it  is 
appropriate  to  describe  its  capabilities.  After  a  description  of  the 
capabilities,  the  topic  shifts  to  the  discussion  of  implementation  decisions 
that  affect  the  two  most  important  issues  ad>out  graphics  -  speed  and 
realism. 


A.  PROGRAM  OVERVIEW 

The  graphics  program  is  best  described  by  listing  its  capabilities  and 
providing  a  few  captured  images;  however,  the  black  and  white  images  do 
not  do  justice  to  the  display.  A  true  assessment  of  the  program  can  only 
be  obtained  by  seeing  it  in  action  at  TRADOC  Analysis  Command  (TRAC), 
Monterey.  Its  capabilities  are  as  follows: 


•  Displays  a  three  dimensional  representation  of  the  DYNTACS  terrain 
model  in  color  with  moving  soldiers. 

•  Uses  a  20  square  kilometer  terrain  database  of  processed  DMA  Level 
1  DTED  (approximately  100  meter  spacing).  It  can  move  anywhere 
within  this  square  and  displays  a  view  out  to  three  kilometers. 

•  Has  the  ability  to  change  viewing  angles,  viewing  altitude,  viewing 
magnification,  and  viewing  direction.  The  default  setting  is  from  the 
viewpoint  of  a  soldier  standing  on  the  ground  looking  to  his  front. 

•  Moves  the  soldier's  viewpoint  as  the  soldier  moves,  which  simulates 
moving  across  the  terrain. 

•  On  a  Dell  25  MHz  386  computer  with  math  coprocessor,  a  VGA  card,  a 
VGA  monitor,  and  cache  memory  displays  one  frame  per  1.2  to  1.5 
seconds.  It  uses  EGA  mode,  so  only  a  EGA  card  and  monitor  are 
reqviired. 

•  Displays  information  regarding  current  location,  heading,  and  view 
angle. 

•  Has  the  ability  to  change  location  and  intensity  of  the  light  source, 
to  change  ambient  light  conditions,  and  thus  change  the  shades  of 
color  in  the  scene. 
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•  Using  digital  halftoning,  provides  24  different  shades  and  tones  each 
of  red,  blue,  and  green. 

•  With  minor  processing  of  DTED  Level  1,  can  display  terrain  anywhere 
in  the  world  for  which  DTED  Level  1  is  available.  DTED  Level  1  does 
not  include  ctiltural  features. 

•  With  enhancements,  it  can  be  incorporated  into  a  training  simulator 
for  small  unit  leaders;  i.e.,  platoon  leaders. 

Three  figures  are  provided  to  illustrate  some  of  the  capabilities  of  the 
three  dimensional  display.  Figure  6  shows  a  view  from  behind  a  fire  team 
(an  element  of  4  soldiers)  at  approximately  six  feet  above  the  ground; 
Figure  7  show  a  side  view  of  the  fire  team  at  six  feet  above  ground;  and 
Figure  8  shows  a  view  from  approximately  100  hundred  feet  above  the  fire 
team.  The  reason  only  a  fire  team  is  shown  is  because  that  is  the  liurgest 
size  of  force  currently  implemented  in  the  display.  This  size  was  sufficient 
to  test  the  display  algorithms.  The  figures  only  demonstrate  a  few  of  the 
capabilities  and  potential  of  the  program. 

B.  GRAPHICS  IMPLEMENTATION  ISSUES 

The  user  of  a  graphics  program  judges  its  value  using  two  criteria. 
The  first  criterion  is  how  fast  the  program  displays  the  scene.  The  second 
criterion  is  how  realistically  the  program  displays  the  scene.  These  two 
criteria,  speed  and  realism,  become  the  major  concern  in  implementing  a 
graphics  program.  Therefore,  it  is  appropriate  to  address  what  the 
program  does  to  provide  realism  and  speed  in  displaying  the  DYNTACS 
terrain  representation. 
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Figure  6.  View  from  Behind  Fire  Team 
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Figure  7.  Side  View  of  Fire  Team 


Figure  8.  View  from  100  Feet  Above  Fire  Team 
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1.  Providing  RooUsm 

Th«  program  employs  three  techniques  to  support  a  realistic 
'  representation  of  the  DYNTACS  terrain  mod^  with  soldiers.  They  are: 

•  The  use  of  the  perspective  projection  techniqtie  of  displaying  three 
dimensions. 

•  The  use  of  color  filled  polygons  with  hidden  surfaces  removed  instead 
of  a  transparent  wire-frame  representation. 

•  The  use  of  a  shading  model  that  calculates  the  light  intensities  in 
order  to  determine  the  appropriate  shade  of  color  for  the  surfaces  of 
the  objects. 

a.  Perspective  Projection 

Prospective  projection  displays  objects  so  those  at  greater 
distance  appear  smaller.  Using  this  technique,  parallel  lines  on  objects 
tend  to  converge.  This  technique  resembles  the  way  people  view  objects 
in  the  real  world.  If  the  reader  looks  at  any  building,  he  will  notice  that 
parallel  lines  on  the  building  appear  to  converge  in  the  distance.  This 
technique  provides  for  a  laore  realistic  representation  of  the  terrain  model 
by  representing  all  three  dimensions  and  not  just  two  dimensions.  [Ref. 
16:p.  184] 

The  enhanced  realism  of  a  three  dimensional  display  comes  at 
a  cost.  Perspective  projection  techniques  requires  substantiBl  mathematical 
calculationa  in  terms  of  translating,  rotating,  and  scaling  objects  to  be  in 
the  correct  location,  orientation,  and  sise.  It  is  critical  that  the  program 
perform  these  repetitive  calculations  as  efficiently  as  possible. 
Fortunately,  there  are  documented  techniques  for  doing  these  calculations 
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efficieiitly  through  mstrix  ooncstenstion  of  the  tranelebon,  rotation,  and 
scaling  operations  [Ref.  16:pp.  220*233]. 

b.  MUed  Polygons 

There  are  two  options  for  displaying  the  images  created  by 
perspective  projection.  One  of  these  techniques  is  displaying  the  object 
as  a  transparent  wire-frame  mod^.  The  problem  with  traxisparent  wire¬ 
frame  objects  is  that  the  viewer  is  sometimes  confused  as  to  the  definition 
of  the  object.  This  can  be  overcome,  to  some  extent,  by  removal  of  any 
lines  that  should  be  hidden  from  view.  The  advantage  of  the  transparent 
wire-frame  model  is  that  it  allows  quick  display  generation.  [Ref.  17:p.  45] 

The  second  technique  of  displaying  objects  is  to  fully  shade 
the  object  or  color  the  surfaces.  This  technique  is  often  referred  to  as 
rendering.  It  provides  for  more  realistic  images  but  greatly  increases  the 
display  generation  time  due  to  the  need  to  color  more  pixels.  Although  the 
display  time  is  increased,  the  program  uses  this  technique  for  the  effect 
of  the  more  realistic  display.  Additionally,  the  terrain  and  objects  are 
drawn  with  hidden  surfaces  removed. 

c.  Shades  at  Color  Dependent  on  Light  Conditions 

The  last  technique  to  enhance  realism  is  to  use  a  shading 
model  to  determine  the  shade  of  color  for  filling  a  polygon.  A  shading 
model  was  adapted  in  a  modified  form  from  Computer  Graphics  [Ref.  16:276- 
289].  It  determines  which  shade  to  vise  as  a  function  of  five  variables. 
They  are  the  light  soiurce  location,  the  light  source  intensity,  the  ambient 
light  intensity,  the  reflectivity  of  the  surface,  and  the  orientation  of  the 
surface.  Descriptions  of  these  five  variables  are  as  follows: 
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•  Tlw  locsbon  of  the  light  aouroe  is  expressed  as  a  three  dimensional 
vector  of  unit  magnitude  pointing  to  the  light  soiurce.  This  vector 
can  he  changed  to  indicate  movement  of  the  sun  or  moon. 

•  The  intensity  of  the  light  aoiurce  is  expressed  as  a  value  less  than  or 
equal  to  one.  This  value  can  be  changed  to  model  a  cloudy  versus 
dear  day. 

•  The  orientation  of  the  surface  is  expressed  as  a  surface  normal 
vector.  The  dot  product  of  the  surface  normal  and  the  light  source 
vector  equals  the  ooshie  of  the  angle  between  the  two  vectors.  When 
the  dot  product  is  negative,  the  light  soturce  is  behind  the  surface 
and  thus,  the  surface  is  not  illuminated. 

•  The  reflectivity  of  the  surface  is  expressed  as  a  coefficient  less  than 
or  equal  to  one. 

•  The  intensity  of  ambient  light  is  expressed  as  a  value  less  than  one. 
The  sum  of  the  intensity  of  ambient  light  and  the  intensity  of  the 
hght  source  must  be  less  than  one. 


These  five  variables  are  used  in  the  following  equation  to 
determine  the  intensity  of  the  reflected  light  from  the  surface: 


whgre 

/  -  buenalty  cf  R^lee$td  Ugla 
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/,  -  baenaxty  cf  light  Source 
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tdtot  determining  the  intensity  of  the  reflected  light,  a  procedure  is  called 
to  fix  which  of  twenty  four  shades  to  use  for  shading  that  surface.  This 
shading  model  provides  more  realism  to  the  display  by  shading  objects 
similar  to  the  way  they  appear  to  be  shaded  when  viewed  by  the  human 
eye. 
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2.  Providing  Speed 

When  sitting  an  front  of  a  computer  display  waiting  for 
information  to  be  displayed,  the  difference  between  a  couple  of  seconds 
and  ten  seconds  can  seem  like  eternity  to  a  user.  A  program  that  requires 
user  involvement  must  have  fast  displays  or  the  user  will  become 
friastrated  as  he  continually  waits  for  the  computer  to  do  its  job.  Since 
this  terrain  model  is  being  built  for  interactive  use  by  a  user,  speed  is 
essential. 

Many  techniques  and  algorithms  are  being  incorporated  in  this 
program  to  enhance  the  speed  with  which  the  display  is  generated.  Of 
these,  there  are  three  algorithms  that  account  for  the  majority  of  the 
results  to  date.  They  are: 

•  A  specdalized  triangle  filling  routine. 

•  The  soldier  sorting  algorithm. 

•  The  integrated  display  algorithm. 

Although  there  are  many  other  areas  that  affect  the  speed  of  the  display, 
these  are  the  areas  that  have  received  the  most  effort.  AU  are  innovative 
solutions  or  application  of  known  algorithms. 

a.  The  Specdahsad  Triangle  Drawing  Procedure 

(1)  The  Need.  As  mentioned  earlier,  drawing  filled  polygons 
requires  more  time  than  drawing  a  transparent  wire-frame.  For  more 
realism,  it  was  decided  to  not  only  use  filled  triangles,  but  to  simulate 
more  shades  of  a  given  color  by  using  digital  halftoning.  Digital  halftoning 
is  a  technique  to  generate  more  shades  by  creating  patterns  of  pixels  with 
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two  slightly  different  tones  of  the  same  color.  Using  this  technique,  four 
tones  of  the  same  color  can  easily  generate  16  different  shades  of  a  color. 

Tiurbo  Pascal  5.5  provides  a  procediure  in  its  graphics 
unit  called  Fillpdly  that  fiT  >  polygons  with  a  specified  color  or  a  pattern. 
Unfortunately,  the  pattern  is  restricted  to  a  specified  color  and  the 
background  color  of  the  display.  To  employ  digital  halftoning  requires 
drawing  the  polygon  twice,  once  with  one  pattern  and  the  first  tone,  then, 
a  second  time  with  the  complementing  pattern  and  the  second  tone.  Since 
the  procedure's  source  code  is  not  available,  altering  this  limitation  is  not 
easily  done. 

Initial  use  of  this  "draw  it  twice"  technique  provided  a 
good  display,  but  at  a  terrible  cost.  On  the  Dell  386  computer,  the  time 
to  generate  one  picture  was  timed  at  just  under  30  seconds.  These  initial 
results  forced  a  re-evaluation  of  the  situation.  Should  the  digital 
halftoning  technique  be  dropped  or  should  a  new  procedure  to  draw  the 
triangles  be  created?  The  decision  was  to  search  for  or  design  a  better 
procedure. 

Most  compxiter  graphics  references  describe  two 
algorithms  for  area  filling  of  polygons  that  are  suitable  for  the  needs  of 
this  program.  They  are  the  border  fill  algorithm  and  the  scan  line 
algorithm.  The  border  fill  algorithm  [Ref.  9:pp.  252-263]  can  be  described 
as  follows: 

•  Trace  the  border  and  create  an  ordered  list  of  the  border  pixels. 

•  Perform  a  scan  of  the  interior,  checking  for  holes  in  the  region 
defined  by  another  polygon. 
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•  Coimec±  the  left  and  right  boundaries  on  each  scan  line  by  filling 
with  a  horixontal  line. 


The  scan  line  algorithm  [Ref.  16:pp.  83-90]  can  be  described  as  follows: 

•  Trace  the  borders  in  a  color  that  is  different  from  other  colors  on  the 
screen. 

•  Scan  a  rectangtOar  region  that  contains  the  polygon  in  order  to 
determine  the  left  and  right  border  pixel  on  each  line. 

•  Connect  the  left  and  right  border  pixel  by  filling  with  a  horixontal 
line. 


Both  of  these  algorithms  are  general  purpose  algorithms.  They  work  with 
many  types  of  polygons  if  implemented  correctly.  With  their  general 
purpose  design,  the  user  gets  flexibility  at  the  expense  of  additional 
computation  time.  If  a  procedure  needs  to  be  prepared  for  use  on  any 
different  number  of  polygons,  then  these  are  the  tools  that  should  be 
utilised. 

The  DYNTACS  terrain  representation  only  needs  the 
capability  to  draw  triangles,  but  a  large  number  of  them.  Only  other 
objects,  such  as  people,  require  the  capability  to  draw  various  polygons. 
Since  a  four  kilometer  square  with  100  meter  spacing  requires  3200 
triangles,  any  speed  gained  by  a  special  procedure  for  triangles  is  worth 
the  effort  of  designing  it.  As  a  bonus,  other  polygons  can  be  made  by 
pxitting  several  triangles  together. 

(2)  The  Specialized  Algorithm.  The  development  of  a 
spedLalixed  algorithm  is  straightforward.  A  triangle  is  defined  by  three 
paints  connected  by  lines.  Additionally,  recall  that  the  general  polygon 
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algorithms  determined  the  border  pixels,  then  connected  them  with  a 
horisontal  line.  A  specialised  triangle  routine  has  the  following  steps: 


•  Sort  the  three  points  of  the  triangle  such  that  they  are  ordered  top 
to  bottom,  and  in  case  of  the  same  y  values,  order  them  left  to  right. 
Refer  to  the  ordered  points  as  point  one,  two,  and  three.  Refer  to 
the  lines  between  them  as  Line  1-2,  1-3,  and  2-3. 

•  Incrementally  draw  lines  1-2  and  1-3,  one  scan  line  at  a  time  in  order 
to  determine  the  left  and  right  border  pixels  of  the  triangle  for  that 
scan  line.  Fill  that  scan  line  between  the  left  and  right  border 
pixels. 

•  Continue  incrementally  processing  line  1-2  and  1-3  for  each  scan  line 
until  point  two  is  reached. 

•  Now,  incrementally  process  line  2-3  while  continuing  on  line  1-3  where 
it  stopped  with  the  previous  line.  Continue  until  reaching  point 
three,  the  end  of  the  lines. 


This  algorithm  capitalizes  on  the  fact  that  as  the  computer  draws  the  lines 
from  one  point  to  another,  it  visits  the  pixels  that  comprise  the  border  of 
the  triangle.  Instead  of  returning  to  these  pixels  later,  as  the  scan  line 
algorithm  does,  it  makes  the  determination  as  part  of  drawing  the  left  and 
right  lines  incrementally. 

(3)  Implementing  the  Special  Algorithm.  As  mentioned  earlier, 

it  is  essential  that  the  algorithm  be  implemented  as  efficiently  as  possible. 

Since  speed  is  critical,  the  procedxure  needs  to  push  the  capabilities  of  the 

hardware  to  the  maximum.  Michael  Abrash  makes  a  statement  in  Zen  of 

Assembly  Language  that  is  appropriate.  He  states: 

Comment  your  code,  design  it  carefully,  and  write  non-time  critical 
portions  in  a  high  level  language,  if  you  wish,  but  when  you  write 
portions  that  interact  with  the  user  or  affect  response  time, 
performance  must  be  your  paramount  objective.  Assembler  is  the  path 
to  that  goal.  [Ref.  18:p.  9] 
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A  high  level  language,  such  as  Pascal  or  ADA,  is 
dependent  upon  the  compiler  to  optimize  code.  Ck)mpilers  for  these 
languages  are  like  the  general  purpose  filling  algorithms,  they  get  the  job 
done  rather  effectively,  but  sometimes  not  using  the  most  efficient  code. 
This  deficiency  is  the  price  the  programmer  pays  for  the  ease  of 
implementation  using  a  high  level  language. 

A  special  purpose  algorithm  or  code  written  in  assembly 
language,  if  written  properly,  will  get  it  done  more  efficiently  than  if 
written  in  a  high  level  language.  Using  assembly  language,  the 
programmer  can  access  hardware  directly  without  having  to  use  the  Disk 
Operating  System  (DOS)  or  the  Basic  Input  Output  System  (BIOS)  routines. 
Some  of  the  DOS  and  BIOS  routines  are  not  as  efficient  as  they  could  be. 
By  accessing  the  hardware  directly,  the  programmer  bypasses  the 
inefficient  DOS  and  BIOS  routines  and  obtains  better  performance.  In  time 
critical  code,  such  as  graphics  producing  code,  this  technique  residts  in 
substantial  performance  gains  at  the  cost  of  increased  programming 
complexity  and  development  time. 

To  implement  the  special  purpose  algorithm  efficiently, 
two  techniques  need  to  be  integrated:  line  drawing  and  area  filling.  The 
most  efficient  way  to  draw  lines  for  a  personal  computer  display  is  to  use 
Bresenham's  Algorithm  [Ref.  9:p.  168].  To  accomplish  area  filling,  the  use 
of  horizontal  lines  is  the  most  efficient  method  on  the  personal  computer 
display  [Ref.  9:pp.  168-169]. 

Integrating  these  concepts  into  one  algorithm  in  assembly 
language  is  a  complex,  but  necessary  task  if  better  performance  is  desired. 
Needless  to  say,  they  are  implemented  in  assembly  language  for  this 
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program.  A  listing  of  the  PillTri  routine  with  some  additional  explanatory 
comments  is  included  in  Appendix  D. 

(4)  The  Results.  After  implementing  the  special  purpose 
algorithm  in  assembly  language,  the  program  was  run  again  to  determine 
what  improvements  were  obtained.  On  the  Dell  386  25  MHz  computer,  the 
result  was  a  display  rate  of  just  under  five  seconds.  This  display  time 
was  a  vast  improvement  from  the  initial  time  of  30  seconds  with  the  FillPoly 
procedure. 

b.  The  Soldier  Sorting  Algorithm 

Having  developed  a  model  that  displays  terrain  in  a 
reasonable  amount  of  time,  the  next  step  is  to  add  soldiers.  After 
spending  much  time  and  effort  to  obtain  the  performance  results  mentioned 
above,  it  is  essential  that  this  step  be  equally  efficient.  The  adding  of 
soldiers  to  the  display  has  the  potential  to  increase  display  time 
significantly  if  not  implemented  in  an  efficient  manner. 

(1)  Nature  of  the  Problem.  To  fully  understand  the  problem, 
one  area  needs  to  be  addressed:  the  manner  in  which  terrain  is  drawn  by 
the  program.  In  particular,  the  method  employed  must  be  designed  so 
hidden  surfaces  are  not  displayed. 

The  method  the  terrain  program  uses  is  known  as  the 
painter's  algorithm.  This  algorithm  gets  its  name  from  the  way  a  painter 
paints  a  picture.  First  the  most  distant  objects  are  drawn.  Additional 
objects  are  added  to  the  picture  working  closer  toward  the  view  point. 
In  the  process,  some  or  all  of  a  previous  object  is  covered  up  by  the 
closer  objects.  The  terrain  displaying  program  uses  this  algorithm.  It 
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starts  with  the  most  distant  row  or  column  of  the  terrain  matrix  and  works 
its  way  back  to  the  closest  row  or  column.  Thus,  objects  that  should  be 
hidden  from  view  are  covered  up  on  the  screen  by  the  closer  objects. 

Implementing  this  algorithm  is  relatively  simple  for  the 
terrain  by  itself;  simply  draw  the  columns  or  rows  in  the  correct  order. 
Placing  soldiers  into  this  process  makes  it  more  difficult.  Their  location 
is  dynamic  and  changes  from  display  to  display.  Drawing  them  in  the 
correct  sequence  requires  two  considerations.  First,  the  program  must 
determine  which  triangle  they  occupy.  This  is  easy  to  determine  because 
the  elevation  routine  explained  earlier  developed  an  algorithm  for 
determining  what  triangle  a  given  point  occupies.  The  other  consideration 
is  determining  the  drawing  order  for  two  or  more  soldiers  when  they  are 
in  the  same  triangle.  This  problem  is  one  of  sorting. 

Sorting  problems  have  the  potentiad  to  become  time 
consuming.  A  bad  sort  algorithm  can  cause  an  otherwise  efficient  program 
to  become  inefficient.  With  this  in  mind,  a  search  of  several  references 
provides  some  elegant  solutions  to  the  problem. 

(2)  Binary  Search  Trees.  The  best  technique  for  this 
particuhu:  problem  is  to  insert  the  soldiers  distance  from  the  view  point 
(depth)  and  a  pointer  to  any  other  information  required  for  the  display 
into  a  binary  search  tree  [Ref.  19:pp.  198-*210].  A  slight  modification  to  the 
Binary  Search  Tree  (BST)  is  in  order.  Instead  of  sorting  by  smallest 
values,  the  program  needs  to  sort  by  the  larger  values.  In  this  way,  the 
more  distant  soldiers,  in  terms  of  depth,  will  be  retrieved  from  the  tree 
first. 
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As  an  added  bonvis,  using  Turbo  Pascal  5.5,  it  is  possible 
to  implement  the  BST  so  that  the  objects  inserted  into  the  tree  can  be 
'  different,  as  long  as  they  are  descendants  of  the  same  object  [Ref.  20:pp. 
265-281].  Normally,  due  to  Pascal's  strong  typing  of  variables,  it  is  not 
possible  to  mix  different  types  of  pointers  in  a  Binary  Search  Tree.  By 
using  objects,  it  is  possible  to  create  a  BST  that  sorts  not  only  the 
soldiers,  but  any  other  object  that  is  to  be  displayed,  Le.,  a  tank.  This 
method  of  implementation  of  the  tree  is  used  by  the  program,  allowing  for 
future  expansion. 

(3)  The  Results.  In  implementing  the  BST,  the  amovint  of 
code  increases  only  slightly.  The  overall  effect  in  program  running  time 
with  the  soldiers  added  to  the  display  is  minimal.  The  display  time  on  the 
Dell  computer  only  increases  approximately  one-tenth  of  a  second  over  the 
time  reported  in  the  last  section  when  displaying  four  soldiers  in  the  same 
triangle. 

c.  The  Integrated  Display  Algorithm 

In  the  search  for  better  performance,  the  code  has  been 
scrutinized  for  inefficiency.  Some  initial  improvements  have  been  made  in 
the  organization  and  structure.  This  reorganization  resulted  in  a  more 
integrated  display  algorithm  that  capitalized  on  some  of  the  capabilities  of 
the  programming  language.  The  program  currently  uses  the  following 
integrated  display  algorithm: 

•  Check  to  determine  if  the  current  terrain  data  in  memory  provides  at 
least  two  kilometers  of  display  depth.  If  not,  load  more  terrain  data. 

•  Set  the  video  write  page  to  the  page  hidden  from  view  on  the  display. 
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•  Move  soldiers  and  display  viewing  location  from  current  locations  as 
appropriate. 

•  Set  trigonometric  variables  used  in  the  transformation,  rotation, 
scaling  and  perspective  projection  formulas  as  global  variables. 

•  Determine  which  one  of  the  fourteen  drawing  sequences  to  tise. 

•  Identify  which  squares  of  the  40  x  40  array  of  data  points  need  to  be 
processed  for  the  display  using  the  left  and  right  boundaries  of  the 
field  of  view. 

•  Perform  three  dimensional  to  two  dimensional  transformation  on  the 
terrain  data  points. 

•  Sort  soldiers  by  inserting  into  the  appropriate  Binary  Search  Tree. 
One  empty  tree  exist  for  each  of  the  triangles  in  the  40  x  40  array. 

•  Draw  triangles  in  the  correct  order.  Draw  any  soldiers  that  are  in 
a  triangle  after  drawing  that  triangle  and  before  drawing  the  next 
triangle. 

•  Display  information  in  the  information  part  of  the  display. 

•  Flip  the  hidden  page  to  the  display  page,  thus  refreshing  the  display 
with  a  new  frame. 

•  Free  any  memory  that  was  allocated  for  the  BST's. 

•  Return  to  beginning  of  algorithm. 


This  algorithm  continues  to  be  refined  as  more  tests  are  done  to  check 
performance  on  the  program.  The  results  using  this  algorithm,  however, 
are  a  significant  improvement  over  the  original  attempt  with  the  FUlPoly 
procedure.  The  display  now  refreshes  at  a  rate  of  between  1.2  and  1.5 
seconds.  There  are  still  some  areas  that  can  be  improved,  but  the  program 
is  definitely  pushing  the  edge  of  the  capability  of  the  personal  computer. 
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V.  EHHMICEMEIfTS 


This  chapter  discusses  enhancements  to  the  current  capabilities  of  the 
terrain  model  that  are  essential  for  its  incorporation  into  a  light  infantry 
platoon  combat  model.  These  enhancements  involve: 

•  Displaying  cultural  features  such  as  forest,  buildings,  etc. 

•  Line  of  Sight  calculations 

•  Modeling  Target  Acqviisition 

•  Building  a  detection  list. 

These  enhancements  were  not  implemented  as  part  of  the  terrain  model 
because  of  the  difficulty  in  implementing  the  three  dimensional  display. 
The  time  required  to  implement  the  display  took  more  time  to  develop  than 
initially  planned. 

Without  the  last  three  enhancements,  high  resolution  simulation  of 
combat  is  impossible.  Display  of  cultiiral  features  is  not  necessary,  but 
without  them,  the  battlefield  display  will  be  unrealistic.  Terrain  void  of 
vegetation  will  significantly  decrease  the  realism  of  the  display.  Each  of 
the  enhancements  will  be  addressed  individually. 

A.  DISPLAYING  CULTURAL  FEATURES 

In  Chapter  III,  cultural  feature  modeling  was  discussed  briefly.  Two 
techniques  were  presented  as  possible  solutions;  the  use  of  codes  assigned 
to  each  triangle  and  the  alternative  of  \2sing  geometric  shapes  to  "map"  the 
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vegetation  to  the  terrain.  Of  theae  two  methods,  the  vise  of  codes  for  each 
triangle  is  the  simplest  to  implement  in  terms  of  writing  the  code. 

Including  cviltural  features  would  not  be  very  difficult  if  it  were  not 
for  the  requirement  to  display  them.  Part  of  the  problem  is  the  method 
the  program  uses  when  drawing  the  terrain;  it  draws  the  triangles  in  an 
order  that  "paints”  over  areas  that  are  hidden  (the  painter's  algorithm). 
As  long  as  the  base  of  cviltvural  features  do  not  extend  outside  of  a 
triangle,  they  can  be  drawn  in  the  correct  order  by  placing  them  in  the 
Binary  Search  Tree  with  the  soldiers.  If  the  feature  occupies  more  than 
one  triangle,  it  must  be  subdivided  into  pieces  that  are  assigned  to  the 
respective  triangles  they  occupy.  Otherwise,  the  painter's  algorithm  will 
not  work  (Le.,  objects  that  should  be  hidden  are  no  longer  hidden). 

Due  to  the  requirement  to  draw  a  triangle  and  its  associated 
occupants  (Le.,  people  or  features)  one  after  the  other,  it  would  be  very 
difficult  to  utilize  the  method  of  geometric  shapes  to  display  the  features. 
If  geometric  shapes  are  utilized,  the  program  would  reqviire  a  procedure 
to  interpret  the  shapes  and  determine  which  features  each  triangle 
requires  as  it  draws  the  triangles.  When  a  triangle  is  drawn, 
determination  of  whether  it  has  any  terrain  features  must  be  made  before 
drawing  the  next  triangle.  If  people  are  in  that  triangle,  this  issue  has 
to  be  resolved  before  removing  them  from  the  BST  and  displaying.  The 
complexity  of  implementing  such  an  algorithm  makes  it  prohibitive  for  the 
personal  computer  environment.  Because  of  the  painter’s  algorithm,  the 
program  is  forced  to  utilize  coded  triangles  to  display  the  features. 

An  innovative  solution  to  the  cultural  feature  display  problem  would 
be  to  utilize  the  code  for  each  triangle  to  represent  not  only  the  type  of 
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c\iltural  featiire,  but  also  its  location.  For  example,  assume  there  are  three 
trees  in  a  given  triangle.  The  programmer  could  have  several  codes  that 
represent  three  trees;  each  with  the  trees  in  a  different  location  of  the 
triangle.  The  encoding  of  such  information  would  be  a  time  consuming 
process,  but  will  save  significantly  on  memory  requirements. 

The  topic  of  displaying  cultural  features  deserves  significant  research 
in  order  to  implement  it  properly.  Of  the  four  enhancements,  it  is  the 
most  difficult  to  implement  and  is  deserving  of  a  separate  thesis. 
Implementation  of  the  enhancement  would  probably  take  three  to  six  months 
of  effort. 

B.  THE  REMAIHIMG  ERBEHCEMEMTS 

The  remaining  three  enhancements  are  so  closely  related  that  they 
should  be  implemented  as  a  group.  The  modeling  of  the  acquisition  process 
needs  the  LOS  determination  and  the  capability  to  store  its  list  of 
detections. 

1.  Adding  Line  of  Sight  Calculations 

The  LOS  calculations  were  discussed  in  Chapter  II  and  are 
documented  in  Appendix  B.  To  implement  LOS  determination  in  the  program 
will  not  require  a  significant  amount  of  effort.  The  geometric  calculations 
are  straightforward.  Of  the  four  enhancements,  it  is  the  easiest  to 
implement.  It  would  take  one  to  foxur  weeks  to  implement,  depending  upon 
the  programmer. 

2.  Adding  Detection  Calculations 

The  detection  calcxilations  consist  primarily  of  implementing  the 
negative  exponential  in  an  algorithm  that  determines  if  detection  occurs. 
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In  a  time  step  model,  the  negative  exponential  would  give  the  probability 
of  a  detection  given  LOS  in  the  amount  of  time  of  the  time  step.  Then  the 
computer  could  generate  a  random  number  between  zero  and  one.  If  the 
random  number  is  less  than  the  probability  value  obtained  from  the 
negative  exponential,  then  detection  occurs.  If  the  random  number  is 
greater  than  the  probability  value  then  detection  does  not  occur.  As 
mentioned  in  Chapter  II,  use  of  this  detection  model  is  rather 
straightforward  and  easy  to  implement.  The  difficulty  lies  in  determining 
the  parameters  for  the  negative  exponential.  To  implement  the  negative 
exponential  would  only  take  about  one  week.  Researching  the  parameters 
to  be  xised  in  the  simulation  could  take  several  weeks  to  several  months 
depending  upon  the  accuracy  desired. 

3.  Building  a  Detection  List 

Once  a  detection  has  occurred,  the  model  will  need  to  store  this 
fact  in  a  list.  Because  the  computer  processes  detection  determinations  on 
targets  sequentially  (only  one  at  a  time),  it  needs  to  build  a  list  of 
detections  from  a  given  detection  cycle.  Then,  it  needs  to  process  this 
detection  list  to  make  determinations  of  courses  of  action.  To  implement 
the  capability  to  store  such  a  list  is  only  a  problem  of  using  well 
documented  techniques  for  a  list  data  structure.  Implementation  of  this 
enhancement  should  only  require  a  week  or  two  of  work. 
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VI.  COHCLDSIOMS 


The  intent  of  this  thesis  was  to  develop  a  program  to  display  a  three 
dimensional  representation  of  a  terrain  model  and  soldiers  on  a  personal 
computer.  Prom  this  research,  there  are  several  conclusions: 


•  The  EGA  card  of  the  personal  computer  provides  limited  support  for 
graphics  programming.  Graphics  routines  have  to  be  implemented  in 
software  and  for  enhanced  speed,  they  have  to  be  implemented  in 
assembly  language. 

•  The  limitation  of  usable  memory  by  DOS  on  the  personal  computer 
severely  constrains  the  display  program  in  terms  of  the  size  of 
terrain  that  can  be  loaded  in  memory  at  one  time. 

•  The  DYNTACS  terrain  representation  provides  a  feasible  methodology 
for  implementing  a  realistic  three  dimensional  display  of  the  terrain 
and  provides  the  capability  to  use  DMA  DTED  data. 

•  The  representation  of  cultural  features  (Le.,  trees)  is  relatively 
straightforward  until  one  examines  the  requirement  to  display  them. 
The  display  of  cultural  features  is  a  complex  problem  and  deserving 
of  further  research  and  development. 

•  Routines  provided  in  programming  packages  (i.e.,  FillPoly)  are  good 
general  purpose  routines  but  may  not  meet  the  requirements  of  a 
program.  A  specialized  routine  tailored  to  the  needs  of  the  program 
can  greatly  improve  the  speed  with  which  a  program  generates  a 
display  (five  versus  thirty  seconds  per  frame). 

•  The  use  of  a  Binary  Search  Tree  to  sort  the  order  of  displaying  the 
soldiers  had  only  minimal  effect  on  the  display  time.  The  use  of 
objects  allows  the  use  of  mixed  objects  in  the  BST  as  long  as  they 
are  all  descendants  of  the  same  object.  This  allows  for  future 
expansion  as  tanks,  helicopters,  and  other  objects  are  added  to  the 
display. 

•  The  dev^pment  of  an  integrated  display  algorithm  further  improved 
the  display  time  (1.2  versus  5.0  seconds  per  frame). 


The  results  of  tliis  thesis  indicate  that  it  is  possible  to  develop  a 
display  for  a  light  infantry  combat  model  on  a  personal  computer  that 
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provides  a  realistic  image  in  three  dimensions.  From  the  programming 
standpoint,  the  graphics  programming  is  the  most  difficult  part  of  a  light 
infantry  combat  model.  From  the  research  standpoint,  there  is  much  work 
to  be  done  in  order  to  fulfill  the  goal  of  developing  the  light  infantry 
platoon  combat  model. 

The  enhancements  that  still  need  to  be  added  to  the  display  program 
before  full  development  of  the  combat  model  were  discussed  in  Chapter  V. 
Three  of  these  enhancements  are  necessary  in  order  to  model  the  target 
acquisition  process:  Line  of  Sight  calculations,  detection,  and  creation  of 
a  detection  list.  These  three  are  documented  and  are  relatively 
straightforward  to  implement.  The  fourth  enhancement,  adding  of  cultural 
features,  is  the  most  difficult  to  implement  and  is  worthy  of  additional 
research.  As  stated  earlier,  the  use  of  the  painter's  algorithm  for  hidden 
surface  removal  and  the  memory  constraints  of  the  target  computer  make 
the  integration  of  displaying  cultural  features  a  complex  task. 

Once  these  four  enhancements  are  implemented,  the  modified  Lawson's 
Command  and  Control  model  for  the  individual  and  the  "onion  skin"  diagram 
provide  a  framework  with  which  to  continue  the  development  of  the 
program  until  it  becomes  a  combat  model.  An  alternative  path  of 
development  is  to  utilized  the  display  with  enhancements  to  conduct 
experiments  to  measure  the  effects  of  human  factors  on  leader  decision 
making. 

The  development  of  a  light  infontry  platoon  combat  mod^  using  the 
personal  computer  can  greatly  enhance  the  experience  and  training  of 
platoon  leaders.  With  such  a  model,  imits  would  be  better  prepared  for 
deployment  on  a  contingency  mission  such  as  Operation  "Just  Cause." 
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Command  and  Control  of  platoons  cotdd  be  greatly  enhanced  through  better 
trained  leaders.  A  platoon  that  has  better  trained  leaders  results  in  a 
better  trained  company,  which  in  turn  means  a  better  trained  battalion. 


APPEHDIX  K.  PLAIIE  DEPARTURE  POIHTS 


This  appendix  is  referenced  in  Chapter  III  of  the  thesis  in  the  section 
regarding  Line  of  Sight  determination.  The  intent  of  this  appendix  is  to 
outline  the  algorithm  for  determining  the  plane  departure  points  between 
two  locations.  Plane  departure  points  are  the  entry  and  exit  points  of  the 
triangular  planes  along  a  constant  heading  from  the  beginning  point  to  the 
end  point. 

The  routine  that  would  be  developed  based  on  this  algorithm  would 
be  utilized  by  a  movement  routine  that  needs  the  plane  departure  points 
for  calculating  slopes  along  a  path  between  two  points.  This  will  be 
necessary  for  calculating  speed  of  movement. 

This  algorithm  is  adopted  from  The  Tank  Weapon  System  which  is 
referenced  in  the  thesis.  Except  for  changes  in  notation  so  as  to  insure 
consistency  with  the  thesis  notation,  the  algorithm  is  the  same  as  described 
in  the  above  reference  on  pages  64-65. 


58 


A.  HOTATIOM 


Notation  used  in  the  algorithm  is  defined  below: 


(x,,  z,)  =  starting  point 
(xj,  Zj)  =  ending  point 
{Pi>  9i}>  i~l>  2,  .  .  .  ,  n  =  the  set  of  plane 
departure  points 

[Xj]  =  the  greatest  integer  less  than  or  equal  to  the 
real  value  of  x^ 

B.  THE  ALGORITHM 

The  algorithm  consist  of  three  components.  The  first  component 
calculates  the  plane  departure  points  along  the  vertical  terrain  lines.  The 
second  component  calcvilates  the  plane  departure  points  along  the  diagonal 
terrain  lines.  The  third  component  calculates  the  plane  departure  points 
along  the  horizontal  terrain  lines.  Once  these  three  components  have  been 
used  to  determine  the  plane  departure  points,  all  that  remains  is  to  sort 
them  in  the  order  they  would  be  visited  going  from  the  start  point  to  the 
end  point. 


Vertical  Terrain  Lines 

1)  V  ^  «  -  0;  P  -  -1 

else  u  •  ^  •  •••1 


3)  p  -  ([xj+e) 

4)  ^  Pp  ^  Px^  then  go  Step  7  below 

5)  g  -  si(p-x^+c, 

P)  Place  (p,  g)  on  PUme  departare  Ust^ 
a  -  a  +  P;  (fO  Step  3 
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Boriaootal  Terrain  Lines 


7)  ^  «  -  0;  P  “  -1 
else  a  -  -fl;  p  -  -t-l 

8)  9  -  [zJ+« 

9)  If  P4  Pz^  then  Go  Step  12 

IQ)  P  -  —  iq-z^  +  Jc. 

m 

11)  Place  (p,  q)  on  plane  departure  list, 
a  -  a  *  fi;  Go  Step  8 


Diagonal  Terrain  Lines 


12)  (fx^  *  a  -  0;  P  - 

elsea  -  +1;  p  -  +1; 

13)  -  a*J  +  [zj  *  tt) 


14)  p 


*j»  -t.  *  > 
1  +  m 


-1; 


15)  q  •  ~p  *b 

IQ  P6  fc  P  (z^  *  then  all  departure  points 

are  idendfledi  Go  SORT 
IQ  Place  ip,  q)  on  plane  departure  point  list, 
a  -  a  -t-  P;  Go  Step  13 
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APPENDIX  B.  LINE  OP  SIGHT 


This  appendix  is  referenced  in  Chapter  III  of  the  thesis  in  the  section 
regarding  Line  of  Sight  determination.  The  intent  of  this  appendix  is  to 
outline  the  algorithm  for  determining  whether  or  not  geometric  Line  of 
Sight  (LOS)  exist  between  two  entities.  Plane  departure  points  are  the 
entry  and  exit  points  of  the  triangular  planes  along  a  constant  heading 
from  the  observer  location  to  the  target  location. 

The  routine  that  would  be  developed  based  on  this  algorithm  would 
be  utilized  by  the  model  to  build  a  list  of  potential  targets.  A  prerequisite 
for  detection  is  that  LOS  exists.  From  the  list  of  targets  to  which  LOS 
exists,  the  detection  model  would  determine  if  detection  occurred. 

This  algorithm  is  adopted  from  The  Tank  Weapon  System  which  is 
referenced  in  the  thesis.  Except  for  changes  in  notation  so  as  to  insure 
consistency  with  the  thesis  notation,  the  algorithm  is  the  same  as  it  is 
described  in  the  above  reference  on  pages  80-83. 
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h.  ROTATION 


Notation  used  in  the  algorithm  is  defined  below: 


location  of  the  observer 
location  of  the  target 
coordinates  of  intersection  between  a 
terrain  line  and  a  plane  parallel  to  the  y  axis 
=  the  greatest  integer  less  than  or  equal  to 
the  real  value  of  x 

=  the  macro  terrain  Ovation  at  (p,  q) 
calc\ilated  by  the  elevation  procedure 
discussed  in  Chapter  in 
'  the  macro  terrain  elevation  adjusted  for 
vegetation  height 
=  tree  height  in  a  forested  area 
:  hf  if  (p,  q)  is  in  forested  area 
:  0  if  (p,  q)  is  not  in  forested  area 

B.  THE  ALGORITHM 

This  algorithm  checks  geometric  LOS  in  three  parts.  First,  it  checks 
to  determine  if  LOS  exists  over  the  vertical  terrain  lines.  Next,  it  checks 
to  determine  if  LOS  exists  over  the  horizontal  terrain  lines.  Last  it  checks 
to  determine  if  LOS  exists  over  the  diagonal  terrain  lines.  If  a  LOS  check 
fails  during  any  one  of  the  checks,  LOS  does  not  exist  and  the  algorithm 
exits. 
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Vertical  Terraiii  i.itMMi 


1)  Determbu  and  z,  using  elevation  procedure 

2)  IfXf  >  jt,  then  a  -  0;  0  -  -1 

a  -  +1;  (i  -  +1 

3)  i  •  (I*J+«) 

4)  ^  px,  tiian  go  Step  14  bek^ 

5)  ,  . 

Qi-  w 

T)  y  (it  q)  is  €  forest,  set  hi 
Else 

*)  y  -  *y.-K 

*t  *9 

9)  iry  >  Maxty^j,  theni  ^  i  *  Go  Step  4; 

Else  Go  Stq>  10 

10)  yy  <  Minty^j,  Iton  LOS  does  not  exist  SO  EXIT 

11)  Calculate  elevation  y  at  (i,  q)  using  elevation  procedure 

12)  Vy>y‘  then  LOS  does  not  exist,  SO  EXIT 

13)  i  -  i  -1^  P;  Go  Step  4 
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Roriaontal  Terrain  Lines 


14)  y*,  >  then  a  -  0;  p  -  -1 
tiM  a  -  -^1;  P  -  -fl 

13)  y  -  a«j+®) 

IQ  ^  Py  >  P^t  ff  Atep  26  below 

17)  p  - 

V*. 

18)  i  -  {p] 

IQ  ^  (p,  y)  if  6  ybresf,  aet  hji 
Ebe  Ay  -  0 

20)  y'  -  *y^-K 

*r*. 

21)  yy'  >  MaxOj,  ^  thenj  Go  Step  16; 

Ebe  Go  Step  22 

22)  ^y^  <  y^J^^)  then  LOS  does  not  exbt  80  EXIT 

23)  Calculate  elevation  y  at  (p,J)  using  elevation  procedure 

24)  Vy  *  y  <Aia  LOS  does  not  existt  SO  EXIT 

25)  J  -  J  *  Pi  Go  Step  16 
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Diagonal  Tomdn  Lines 


26)  IfXf  +  2,  <  fftm  a  -  0;  p  -  -1; 

siisa  -  +1;  P  -  4-1; 

27)  d  -  +  [zj  *  a) 

28)  ^  8(x,+z^  <  fibt  the  observer  and  target  are  int^visiUe  SO  EXIT 


2»p  - 


V*. 


1+ 


V*. 


i  -  M 

3Q)  g  - 

>  -  W 

31)  ^  (p,  g)  is  e  Forasr  (Iksn  A,  -  A^  Else  A^  -  0 


32)  y'  - 

33) yz'  >  MaxCy,^!  P>^^^,)  then  b  ~  b*fi;  Go  Step  28 
Else  Go  Step  34 

M)  <  h^tn(y^^^  JSf^^^^)  then  IXX  does  exist  SO  EXIT 
35)  Caladate  eievadon  y  at  (p^  g)  using  elevation  procedure 
SE)  ^z>  z^  then  lOS  does  not  exist  SO  EXIT 
37)  A  -  b*p;  Go  STEP  28 
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jkPPBHDix  c.  nmiRPECE  usmos 


This  Appendix  is  referenced  in  Chapter  IV  of  the  thesis  in  the 
section  regarding  Displaying  the  DTNTACS  representation.  The  intent  of 
this  appendix  is  to  provide  the  reader  a  feel  for  the  complexity  of  this 
program  by  providing  a  listing  of  the  interface  portions  of  all  units  \ised 
by  the  main  program  to  display  the  terrain  with  soldiers  in  three 
dimensions.  Each  of  the  procedures  in  these  listings  is  identified  as 
belonging  to  one  of  three  categories: 


•  Unmodified  code  that  was  adapted  directly  from  existing  sources  and 
programs.  Code  in  this  category  is  labeled  Unmodified. 

•  Modified  code  from  existing  sources  and  programs.  In  this  category 
is  code  that  needed  some  modifications  or  translation  from  another 
language.  Code  in  this  category  is  labeled  Modified. 

•  Code  written  to  implement  known  algorithms.  This  category  also 
includes  code  written  as  a  derivative  of  known  algorithms  and  created 
as  innovative  solutions  to  a  problem.  Code  in  this  category  is  labeled 
New  Code. 


The  listings  of  the  units  and  the  main  program  follow  on  succeeding  pages. 


66 


(ttttttttitttititttfkl  |}|it>t*****t*******t****) 

uit  skadu; 

Interface 
uei  irapk,  CIT; 

{  This  niit  is  ased  to  create  the  ability  to  liiilate  different  colors  using  digital 
lalftoning.  It  grorides  procediros  to  set  the  palette  for  digital  halftoning  aith  the 
colors  of  red,  green  ud  bine  and  to  select  esc  of  tbe  shades  based  on  tbe  intensity  lalne 
of  the  reflected  color  froa  the  sarface  of  the  plane  being  draas.  Tbe  entire  Osit  is  III  CODE.) 

type 

Tenclttr  =  record 

leylatte,  DitberColor,  DitberPattera:byte: 

end; 

Toselatrix  =  array[1..24]  of  Tonehttr; 
far 

llaeToaes,  GreeaTones,  ledTeaes:  Toaelatriz; 
lat.lab , Int.Point : Single ; 

procedure  change_palette; 

{  This  procedure  changes  the  palette  to  alios  use  of  4  tones  of  red,  green,  and  blue.  The  retaining 
4  colors  arc  black,  shite,  yellos,  and  grey.  ) 

procedure  InitTones; 

{  This  procedure  sets  up  rariables  is  leiory  that  contain  the  tso  tones  of  a  color  (i.e.  red)  and  the 

pattern  to  use  in  draaing  a  surface  using  these  tao  colors  to  create  up  to  24  shades  of  the  color.  } 

function  Drasiag.Toaef Intensity: real ) :byte; 

{  This  function  returns  the  index  into  the  array  that  contains  the  24  shades  of  a  color  based  on  tbe 

intensity  laluc  that  is  passed  in  as  a  paraieter.  Intensity  falues  are  betaeen  0  and  1  } 

inpleientation 

{  INPLEXEmTIOl  OMITTED  II  TIESIS  IPPEIDIX  } 
end. 


{tteeeettttetestttttfiit  Ground  Osit***********************} 

nit  Croud; 
interface 

ues  Shades,  CIT,  GliPI; 

{  This  uit  profides  the  basic  procedures  and  fuctions  for  the  draaing  of  triugles  and  lines  ud 
initialisation  of  the  progran.  It  prorides  the  global  rariables  for  the  progran  } 
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eout 

CroudJ[tfjCo(ff:8iB|Ii :  0.45;  {refltetioo  coefficient  of  gronnd) 
tieciigtSiigle  :  100.0;  (interTil  betieen  elevation  goints) 

IMI  :  0;  I1I61 :  3);  {tke  range  of  valnes  for  tke  elevation  pointa  arcar) 


lector  :  record 

ij,i:tiBglc;  {three  diiensional  vector  coordinates) 
end; 

TnoTector  =  record 

SI_Coraer,l!_CorBer;lector;  (one  vector  for  each  triangle  in  square,  the  SontEast  (8E)  triangle 

and  the  lorthlest  triugle  (listakenlg  labeled  II  thronghout  prograi) . 
end; 

Sarface.Color  ^  lecerd 

SI_CorBer,ll_Corner:bjte;  (one  color  seting  for  each  triangle  in  a  square) 

end; 

TeoJJrraj  =  arraT[LOII..Iaage,LOII..Iange)  of  POIimPI;  (POimiPB  is  defined  in  tke  Turbo  Pascal 

graphics  unit  GI&PI  as  record  of  z,  t  of 
integer) 

fllTIPI  :  arraT[1..3]  of  PointTrpe;  {arrap  of  three  vertices  of  a  triangle) 

OiTIJIUI :  arraf[L0IR..RilGE,L0IR..I&l6E]  of  Single;  (elevation  points  for  a  square  piece  of  terrain 

that  is  (Range  -  Lour  «  1)  i  Spacing  large) 
Surfaec.Color.Rrraj  :  arra7(Lovr.. Range, leer. .Range]  of  Snrface.Color; 

(arrap  of  surface  colors  for  all  triangles  in  the  square  piece  of  terrain  being  displayed) 
lorial.Tector.&rraj  ^  array(Lovr.. Range, Leer.. Range]  of  TnoTector; 

(array  of  lorul  vectors  for  all  triangles  in  the  square  piece  of  terrain  being  displayed) 
lorMl.fectorJtr  *  ‘lomaljectorjrray; 

Roi.Of.Pts :  array[Lair.  .Range]  of  lector;  (needed  to  prevent  overflon  of  integer  values  then  drating 

triangles  that  are  close  to  the  viever) 

points  :  array(1..7]  of  single; 

PointTypeReal  :  record 
i,y:single; 
end; 

Closejois :  array(0..2]  of  lof_0f_Pts;  (used  to  draw  triangles  that  are  close  to  the  viewer] 


cb:  char; 

ToneJToJraw:  ToneRttr;  (Tonelttr  defined  in  Shades  unit) 

Center :PointType; 

Screenluge;  Pointer; 
lightjonrce:  lector; 

Surf  ace.col  ors :  *  Surf  ace.Col  or  Jrray ; 
lonaljectors;  lorMl.lectorJtr; 

CloseJoi:‘CioseJois; 

OIRICTIOI;  (IOITI,SODTI,UST,IEST,IORTnEST,IOITIIIST,SOUTinST,SOUTniST,IORTin,IORTini, 
S8OGTIUSTS,SOOflll8TS,IOITIU8TE.S0GTIIISTI); 

TnoJJata:  ‘TnoJJrray; 

TII:  Trifype; 

8:  string; 

TU,  TLT,  IRE,  IRT,  8IJ,  SI.I,  linj,  MXJ,  RinJ,  lUJ:  integer; 

8T0PP0IIT,  IRITEPIGI,  IRRORCODE,  GIlPnOOE,  GIIPIDRIIER,  P&GE:  integer; 
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dist.I,  I,  II.  12,  13.  II,  12,  13.  Ill  JIG,  lOLLJIG,  PITCIJIG  :  single; 

TUISJ,  nusj,  TUISJ,  finJt.Tittcrj.fiener_x,lMjif:  single; 
nuni:  PiLmniPi; 

DlTl:  imjIUI; 

sou,  SCUIJ,  SCllIJ,  Objllin,  OIJIUX,  degrees.llGLI:single; 
TheU,ll|kt,nketi,Tllpia,CI,CI,CP,SI,fl.SP,n,bi.ei,di,ei,fi,gi,ki,ii:  single; 

Inlfllu:  Single; 

lip JIC J  ,lnp JIC J :  integer ; 

xT.gTiPoints;  {Died  bp  People  eiei  object  pioeednre) 

procedure  1IIT3D; 

{Ibis  procednre  initialises  the  prograi  to  nse  EGl  graphics  node  and  sets  the  boundaries 
of  the  screen  for  this  node.  Initialises  the  loll.  Pitch  and  lai  angles  of  the  fieier  to 
0  for  the  prograi.  lODIPIlD  CODI} 

procednre  lllocatejei; 

(This  procednre  allocates  leiorp  froi  the  heap  for  the  Surface  color  arraj,  the  lonal  lectors  array, 
the  Too  D  Data  array,  and  the  Close  Ron  array,  in  CODE) 

procednre  SetPiiel(t,y:iord;n:byte); 

{This  procedure  is  iipleiented  in  asseibly  language.  It  sets  a  giren  pixel  x,y  to  the  nth  color  of  the 
palette.  OINODIPIED  CODE) 

procedure  Nyl ine( xl . yl , x2 , y2 ; tord ;n ; byte) ; 

(This  procednre  is  iipleiented  in  asseibly  language.  It  drans  a  line  froi  (xl.yl)  to  (i2,y2)  using  the 
nth  color  of  the  palette.  OMODIPIED  CODE) 

procedure  lylineC(xl.yl,x2,y2:integer;o.’hyte}; 

(This  procedure  is  used  to  drat  a  line  that  has  one  or  both  end  points  off  the  screen 
(it  clips  the  line  to  fit  the  screen).  OINODIPIED  CODE) 

procedure  SetPattern ( p : byte) ; 

(This  procedure  is  used  to  set  the  pattern  that  till  he  used  by  the  triangle  drating 
procedures  PillTri  and  FillTriC.  lEI  CODE) 

procedure  Fil 1 Tri ( xl , yl , x2 , y2 , x3 , y 3 : tord ;n . o .IMIhits : byte) ; 

(This  procedure  is  a  specialised  procednre  iipleiented  in  asseibly  language  that  drats  triangles.  All 
three  tertices  inst  be  on  the  screen.  The  pattern  last  he  set  before  calling  this  procedure  using 
SetPattern.  The  triangle  is  dran  tith  the  priiary  color  of  the  pattern  as  the  nth  color  of  the  palette 
and  the  secondary  color  of  the  pattern  as  the  oth  color  of  the  palette 

in  CODI  lined  lith  soie  lODIPIlD  CODI  froi  lyliie  ihick  ues  Iresenkai's  ilgorithi  for  drauing  lines.) 
procedure  PillTriC(xl,yl,x2,y2,x3,y3:integer;a,o,liaihits:byte); 

(This  procedure  is  siiilar  to  PillTri  except  that  the  three  points  of  the  triangle  do  not  have  to  be  on 
the  screen.  It  drais  only  that  part  of  the  triangle  that  is  on  the  screen 
in  CODE  lined  lith  som  MDIPIID  CODI  froi  Nyliae  ahich  nses  Iresenhai's  agorithi) 

procedure  Restore; 

(This  procedure  restores  the  graphics  card  to  its  default  condition  at  the  end  of  the  prograi. 

NODIPIID  CODE) 
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procedure  f  il  lliudoil  Fil  1  Col  or  .mbits :  bpte) ; 

{This  procedure  fills  u  uindoi  uitb  a  color.  It  assoies  the  uindoi  is  ilreidj  defined  by  the  rariables 
TLI,  Til,  BIX,  BIT  and  is  iipleiented  in  asseiblf  language.  MODIFIED  CODE} 


procedure  ToJnit_Tector(var  OnitJ'.Tector); 

(This  procedure  couTerts  a  rector  passed  in  as  OnitJ  to  a  unit  rector.  MODIFIED  CODE) 
faction  Dot_Prodnct(Dnit J,Dnit_L:Tector) :single; 

(This  function  returns  tbe  mine  of  tbe  Dot  Product  of  the  too  rectors  OnitJ  and  OnitJ.  MODIFIED  CODE) 
procedure  Cross_Prodnet(IO,IO,XO,IT,TT,XT:SingIe;  rar  lonal; rector); 

{This  procedure  sets  tbe  rariable  Borul  to  tbe  result  of  the  cross  product  of  tbe  rector  (10,10,10)  and 
(n.TT.IT).  MODIFIED  CODE) 

procedure  Set Jigbt Jonree(EL ,TL , XL ,  IP , IB:Single) ; 

(This  procedure  sets  tbe  rector  that  indicates  the  location  of  tbe  point  light  source  (the  sun)  to 
(XL, XL, XL).  It  sets  tbe  intensitp  of  tbe  point  source  to  IP  and  tbe  intensitp  of  aibient  light  to  Ib. 
lEV  CODE) 

function  Elerate(iloc,xloe:single):single; 

(This  function  iiplenents  tbe  DIIT&CS  algoritbi  for  deteriining  tbe  eleration  of  a  point  on  tbe  terrain 
surface.  It  accepts  as  input  tbe  location  (iloc,  sloe)  and  returns  tbe  j  ralue  (tbe  eleration)  for  that 
point.  Tbe  mines  iloc  and  iloc  are  the  relatire  coordinates  in  reference  to  loser  left  corner  of  tbe 
square  piece  of  terrain  in  tbe  terrain  array.  MODIFIED  CODE) 

function  ElerateJorId(tIocs,sloes:single) :single; 

(This  function  is  siiilar  to  tbe  elerate  functioo  escept  ilocv  and  sloes  are  tbe  lorld  coordinates 
relatire  to  tbe  loser  left  corner  of  tbe  20  square  kiloieter  terrain  database  in  tbe  file  32nl31e.da3 
MODIFIED  CODE) 

procedure  REBD3D.FILE(rar  DITI:  DmjRXET;LLX.LLI:longint); 

(This  procedure  opens  tbe  file  32nl3Ie.da3  and  initialises  tbe  4  kiloieter  square  chunk  in  to  tbe  display 
array.  lEI  CODE) 

procedure  REIDJori_FIlE(rar  HORMDRTb:  lorial_TectorJtr;LLX,lLT:Longint); 

(This  procedure  reads  in  tbe  surface  uonals  for  each  of  tbe  triangles  in  the  4  kiloieter  square  of  the 
display  data.  lER  CODE) 

procedure  Calcnlatejnrfacejoris; 

(This  procedure  calculates  Surface  lorials  for  for  the  4  kiloieter  square  of  terrain  data  and  stores  tbe 
results  in  tbe  surface  nonal  array.  lER  CODE) 

procedure  Calculate.Snrface.Colors; 

(This  procedure  calculates  tbe  appropriate  surface  colors  of  each  of  the  triangles  in  tbe  4  kiloieter 
display  square  based  on  the  light  intensity  mines  and  stores  tbei  in  tbe  surface  color  array. 
lER  CODE) 

procedure  Line_Clip(mr  Il0,yl0,i20,y20; single); 

(This  procedure  clips  a  line  to  drai  only  tbe  portion  that  is  on  tbe  screen/iindou.  It  accepts  tbe  line 
coordinates  as  real  mines.  UIMODIFIED  CODE) 
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procedure  Pol7gon_ClipJrii(col:bTte:B:iiteper;i,r:poiBts); 

{This  procedure  drais  triuigles  thit  are  iu  the  rots  that  are  close  to  the  rieier.  To  prereat  orerfloB 
it  uses  real  valaes.  It  tas  adapted  direetlj  froi  Coiputer  Graphics  pp.  137*138  lith  oalp  slight 
■odificatioBS.  lODIFIlD  CODE) 

procedure  DraB_Close(Ptl,Pt2,Pt3:Teetor;Tri_Cot:bTte): 

(This  procedure  is  used  to  drai  triaagles  that  are  Ib  the  the  too  rots  closest  to  the  neier.  It 
uses  real  raises  to  preieot  ioteger  orerfloi.  It  clips  the  triaagles  as  aecessari  erea  if  the  triaugle 
goes  behiod  the  rieier.  It  is  aa  iipIeieotatioB  of  the  theory  of  clippiog  iB  tio  aud  three  diieasious 
MODIFIED  CODE} 

iipleieatatioB 

{  iipleieatatioB  oiitted  ia  thesis  } 
eod. 


{tetttttetttettttetttteyite  Grouadl  Oait**********************} 

BBit  GrouBdl; 
iaterface 

uses  people, List, BSTree, pieces, Grouad, shades, crt, graph; 

(This  Bait  is  a  coatiauatioa  of  the  groaad  aait  but  required  the  use  of  sereral  other  uaits  before  it 
could  be  iipleieated.  Liiitatioas  on  the  sire  of  units  that  could  he  edited  and  debugged  forced  the 
breaking  of  the  units  in  this  fashion.} 

type 

loringjOhj  :  array[loir.. Range, Loir.. Range]  of  LiakObj; 

rar 

Irrayjf  Jor  ers : ‘Moringjb  j ; 

Proj_I,Proj_I:Single; 

procedure  Set.TrigJal ; 

{This  procedure  sets  the  global  trigonoietric  ralues  used  by  the  Threed.ToJD  procedure. 

It  sets  Cl  (cosine  of  lai),  CR  (cosine  of  Roll),  CP  (cosine  of  Pitch),  ST  (sine  of  lai), 

SR  (sine  of  Roll),  SP  (Sine  of  Pitch),  and  rariables  used  in  the  translation,  rotation,  and 
scaling  latrii  (ai,bi,ci,di,ei,fi,gi,hi,ii).  Dsing  this  procedure  the  ralues  are  set  on  once 
before  perfoning  calcnaltions  on  all  of  the  terrain  data  points.  lER  CODE) 

procedure  Thrced_ToJd_List(indexl,index2:Integer); 

{This  procedure  creates  a  dynanic  list  as  necesary  for  each  lOOi  square  that  has  one  or  lore  loreable 
objects  in  it  {i.e.  soldiers)  and  then  perfons  the  calculations  necessary  to  create  the  display  data 
for  each  of  those  objects.  lEV  CODE) 

procedure  TRREED.TOJD; 

{This  procedure  conrerts  the  three  diiensional  coordinates  of  the  terrain  into  tio  diiensional  coordinates 
that  are  suitable  for  display  on  the  screen.  It  selectively  handles  only  the  data  of  the  4  ki  square  that 
falls  in  the  field  of  riei  of  the  rieier.  This  procedure  is  application  of  theory.  lER  CODE) 


71 


iiplraestation 


{  IIPLSUITITIOI  OIITTID  II  THESIS  IPPUDII) 
nd. 


{itMtitttttttttttttttmtfiie  GrosadS  Onit**********************} 

oBit  GroondS; 
interface 

Bses  skides.groud.gronndl, list, bstree, graph, info; 

{This  nnit  contains  lore  procedures  and  functions  that  are  related  to  the  ground  unit  hut  use  other 
additional  units  that  the  ground  nnit  does  not  use.) 

procedure  DRU(This.Color:hpte); 

(This  procedure  checks  to  deteriine  if  the  triangle  is  coipletelp  on  the  screen  or  not.  If  it  is 

coipletelj  on  the  screen  it  drass  the  triangle  using  PillTri  and  then  outlines  it  lith  Hjline.  If  it 

needs  clipping  it  draus  the  triange  with  PillTriC  then  outlines  it  lith  MphineC.  lEI  CODE} 

procedure  Check.DisplapJeiain; 

{This  procedure  checks  to  see  if  at  least  2  kiloieters  of  terrain  display  data  are  arailahle  to  the  front 
of  the  Tieeer  and  that  at  least  I. 5  ki  are  to  the  left  and  right  of  the  lieter.  If  these  conditions  are 
not  satisfied,  the  procedure  loads  a  nei  square  of  data  fros  the  20  ki  terrain  database  file  into  the 

display  data  array  that  provides  3.5  ki  to  the  front  of  the  vieser.  IE8  CODE} 

procedure  TIEI; 

{This  procedure  iipleients  the  painter's  algorithi  and  draes  the  triangles  for  the  terrain  and  the 
soldiers  in  the  correct  sequence  so  that  hidden  surfaces  are  hidden.  In  order  to  do  this,  it  uses  one 
of  14  draiing  sequences  dependent  upon  the  vies  direction.  Each  of  the  14  draiing  sequences  draws  only 
the  triangles  and  objects  that  are  in  the  field  of  vies  of  the  vieser.  This  procedure  uses  the 
FillHindos,  the  Set.TrigJal ,  and  the  ThreeD.ToJd  procedures.  lEI  CODE} 


iipleientation 

{  INPLENEITITIOI  OMITTED  II  THESIS  kPPEIDIX  } 
end. 


Onit  List; 
interface 
uses  Pieces; 

{This  nnit  iipleients  a  dynaiic  linked  list  using  objects  instead  of  records.  This  nnit  sas  easily 
adapted  fon  the  test  Data  Structures  by  Rick  Decker  pp.  73*77.  The  only  lodifications  sere  to  convert 
it  to  an  object  oriented  list.  The  entire  nnit  is  MODIFIED  CODE.} 


type 

lodePtr  :  ‘lodeRec; 
LinkPtr  =  ‘LinkObj; 


72 


lodelee  :  record 
leit:  lodePtr; 

Itei:  ThreeDLocPtr; 
end; 


linkObj  :  object 
Pirst.List:  lodePtr: 
proeedve  leit; 
procedare  Dose; 

procedue  idd(TbisItei:TkreeDloePtr); 
fnoction  liptTListiBoQlein; 

(Cheeks  to  see  if  List  pointed  to  bp  L  is  eiptp  and} 
(retnros  Boolean  ansier) 
fnnction  PirstListJodePtr; 

(letnrns  pointer  to  first  lode  in  List} 
fnnction  LastList:IodePtr; 

(Returns  pointer  to  last  lode  in  List) 
end; 

(Horingjbj  =  arraT(Lonr.. Range, Lonr.. Range]  of  LinkObj;} 
iipleientation 

(  IMPLEIEITATIOI  OMITTED  II  TRESIS  BPPEIOIX  } 


(mttettttttttttttttfiie  isTtte  Diiitt***teeeeo******eeet} 

Unit  BSTree; 
interface 

uses  people, ground; 

(This  unit  is  an  iipleientation  of  a  Binary  Search  Tree  lodified  to  work  nitb  this  terrain  prograi 
It  is  only  slight  lodified  froi  the  BST  presented  by  Decker  in  Data  Strnctnres  pp.  198-202.  Soie 
additional  procednres  lere  added  to  suit  the  lain  prograis  needs.} 

type 

Treejink  :  ‘lode; 
linary_Search_Tree  =  Tree.Link; 
lode  :  record 
Left, Right;Tree  Jink; 

Tree_data:Data2dPtr; 

end; 

Tio_Ptr  s  record 
IE,SE:BinaryJearcb_Tree; 
end; 

LandMark2dJrray  =  array[Loffr..Range,Lonr.. Range]  of  Tno.Ptr; 

LandNarks2d  ^  ‘LandNark2dJrray; 
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Tir 

LudMiiksData:  LaadXarks2d; 
procedure  Init_LandMark2dJrra7; 

{This  procedure  initial  lies  the  LaDd>ark2dJrra7  bp  first  Barking  the  top  of  the  heap,  then  allocating 
leiorp  froB  the  heap,  and  last  setting  all  pointers  to  nil.  I!R  CODE) 

procedure  EraseJdlandBarkJata; 

{This  procedure  erases  the  LandMark2d_irrap  hp  freeing  the  Beuorp  that  has  been  allocated  since  the  top 
of  the  heap  uas  Barked  in  the  initialisation  of  the  landBark2d.arrap.  Erasing  in  this  unner  prevents 
the  prograB  froB  having  to  go  back  and  de-reference  all  pointers  to  the  BSTs  created,  ill  of  the 
BeBorp  allocated  since  Barking  of  the  heap  top  is  freed  at  once.  lER  CODE) 

procedure  Create(var  B:  BinarpJearch.Tree) ; 

{initialises  B  to  point  to  a  net  eaptp  binarp  tree.  DBMODIEIED  CODE) 

procedure  Insert(a;Data2dPtr;var  B:BinarpJearch_Tree); 

(inserts  atou  a  into  tree  is  such  a  Banner  that  the  resulting  tree  is 
still  a  BST.  If  there  is  a  node  lith  the  sane  value  as  the  kep  alreadp 
then  the  aton  is  inserted  as  a  right  child.  KODIPIED  CODE) 


procedure  Clear_Tree(var  P;  Treejink); 

{deallocates  all  pointers  in  tree  so  that  no  garbage  is  left  in  heap.  MODIEIED  CODE) 

procedure  Displap_LandHarks(P:BinarpJearch_Tree); 

{displaps  objects  in  binarp  search  tree  bp  doing  an  inorder  traversal 
of  tree.  BEK  CODE) 

iupleBentation 

{  INPLEMEITBTIOB  OMITTED  IB  THESIS  &PPEHDIX  ) 
end. 


unit  GTest; 

{  Bn  estended  set  of  test  routines  for  graphics  Bode  adapted  directlp  froB  the  reference  Power  Graphics 
Osing  Turbo  Pascal  bp  Keith  Heiskaup  et  al  pp.  74-79  litb  no  Bodification  necessarp 
The  entire  unit  is  OINODIFIED  CODE) 

interface 

const 

CR  =  113; 

ESC  :  127; 

BS  :  t08; 

{  These  routines  are  available  to  asp  prograus  that  "use”  this  unit  ) 
function  IntToStrlBui:  longint):  string; 

{This  function  returns  an  input  integer  value  as  string  value  (text).) 
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foBction  leilToStria:  real;  eidth,  deeiials:  integer):  string; 

{Tkis  function  returns  an  input  real  value  as  a  string  (teit).} 

procedure  GRrite(S:  string); 

{This  procedure  irites  a  string  to  the  screen  in  graphics  node  at  the  location  there  the  cursor  is  alreadp 
pointing.) 

procedure  6WriteXT(i,  7:  integer;  8:  string); 

(This  procedure  urites  a  string  to  the  screen  at  a  specific  location  (1,7)} 

procedure  6lriteCh(ch:  char); 

{Irites  a  single  character  to  the  screen) 

function  GReadReal(var  lui;  real):  boolean; 

(Gets  a  real  nniber  as  input  froi  the  screen  folloved  bp  a  carriage  return.) 

function  GReadStrlvar  S:  string):  boolean; 

(Echoes  input  frou  the  kepboard  to  the  screen  in  graphics  node) 

iipleientation 

uses 

Graph,  Crt; 

(IKFLEMEITiTIOI  OMITTED  II  THESIS  IPPEIDII  } 
end. 


GPopPac  Onit******************'********} 

unit  GPopPac; 

{  This  is  a  set  of  utilities  that  provides  popup  sindovs  in  graphics  node. 

The  routines  use  Turbo  Pascal's  BGI  tools  to  siiplifp  the  code.  Most  of 

the  graphics  settings  are  saved  before  a  nei  lindov  is  put  up  and  tbep 

are  restored  vhen  the  lindov  is  closed.  This  uindov  data  is  saved  on  a 

stack.  The  stack  is  iipleiented  as  an  arrap  in  order  to  siiplifp  things.  These 

Otilities  vere  adopted  directlp  vith  no  lodification  froi  Pover  Graphics  Using  Turbo 

Pascal  bp  leiskaip  et  ai  pp. 219-222  vith  no  lodifications.  The  entire  unit  is 

GIMODIFIED  CODE) 

interface 

uses 

Graph; 

const 

ImGRindovs  :  10;  {  Hllov  for  10  pop-up  vindovs  } 

tppe 
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Grapkieslittdol  =  record  {  Record  to  s»e  graphics  settings } 

fleft  JTop, night, VBotton:  integer;  {  Parent  lindoa  boundaries  } 
epi.epj:  integer;  {  Current  position  in  parent  lindoa  ) 

Savelrea;  pointer;  {  Pointer  to  the  saved  region  } 

DraaColor:  lord;  {  Current  draving  color  ) 

end; 

far 

{  Graphics  lindoa  stack  } 

RindoiStack:  array  [l..lniGlindois]  of  GraphicsRindoa; 

{  Index  to  the  next  available  location  on  the  stack  to  nse  } 

GlindovPtr:  integer; 

{  The  externally  visible  routines  iron  this  package  } 
function  GPopnpjleft,  Top,  Right,  Bottoi,  BorderType, 

BorderColor,  Backfill,  PillColor:  integer);  boolean; 
procedure  GOnpop; 
procedure  OnpophllRindois; 

iipleientation 

{  IMPLEMERTBTIOR  OMITTED  IR  THESIS  IPPEIDII  } 

end. 


Onit  Prago; 

{This  unit  installs  a  keyboard  interrupt  service  routine  that  intercepts  certain  keystrokes  before 
reaching  the  lain  progran.  These  interrupts  are  set  up  upon  initial ixation  of  the  prograi  and  is  hidden 
froi  lain  prograi.  Only  the  variables  belov  are  usable  b  the  prograi  directly.  This  unit  vas  adapted 
froi  the  units  explained  in  Turbo  Pascal  Bdvanced  Techniques  by  Chris  Ohlsen  and  Gary  Stroker 
pp.  197-230.  The  entire  unit  is  MODIFIED  CODE.} 

interface 

var 

TievLef t ,Tie«Right .TieiFront , TieeRear , 
PitchDp,PitchDn,BeightOp,HeightDn,Zooiin,Iooaout,lscape:Boolean; 

P:byte; 

iipleientation 

uses  DOS , CRT , Gt ext , gpoppac , graph , ground ; 

{  IMPLEMnTBTIOl  OMITTED  II  THESIS  ) 
end. 
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{tttttttttttttttttttttfite  Info  ooit*********************) 

aait  Info; 

(This  unit  handles  the  infonution  displii  on  the  screen.  It  can  easily  be  changed  to  display  any 
intonation  that  is  desired.  The  entire  nnit  is  III  CODE) 

interface 
ues  Gteit.groud; 

procedure  Displayjnfonation; 

(This  procedure  displays  intonation  in  a  lindoe  at  the  top  of  the  screen.  Intonation  displayed  includes 
the  fiei  aiiinth,  the  pitch  angle,  the  yas  angle,  and  the  tiewer  location} 

iipleientation 
uses  graph; 

{  IMPLEXEITtTIOl  OMITTED  II  THESIS  hPPEIDIX  } 
end. 


(****t*****itt*tttt*t*t««tfi)e  People  Dnit********************} 

Unit  people; 

{This  unit  prorides  functions  and  procedures  to  initialise  the  data  for  displaying  the  soldiers 
and  other  objects.  The  objects  proride  a  procedure  to  display  theiselres  on  the  screen  (Tiee.Obj.I) 
This  unit  is  coipletely  lER  CODE  eicept  for  function  htan.j 

interface 

uses  graph, ground; 
const 

People_Ref_Coeff: Single  •  0.45; 
type 

Threejndices  =  array[1..3]  of  integer; 

Fourjndices  =  array[1..4]  of  integer; 

People.Tertices  =  array[1..32]  of  rector; 

Treejertices  =  array[I..14]  of  rector; 

People_Tertices2d  =  array[1..32]  of  PointTypeleal ; 

Tree_Tertices2d  :  array[1..14]  of  PointTypeleal; 

Peoplejon  :  array[I..ll]  of  rector; 

Treejon  ^  array} I.,  12]  of  rector; 

People.Col  :  array[l..ll]  of  byte; 

Tree.Col  •  array[1..12]  of  byte; 

Colorjndices  :  array[I..ll]  of  Threejndices; 

Tree.Col  or  Jndices  ^  array[I..12]  of  Threejndices; 

Seq_l  :  array[1..32]  of  Ponrjndices; 

Tree.Seq  ^  array[1..7]  of  Ponrjndices; 
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8«q_udJo :  record 
no.Tririnteger: 

Seqiietee:8eq_l; 

Old; 

Tree_Seq_lndJo :  record 
loJTri: integer; 

Sequence :Tree.Seq; 
end; 

Seq_Ptr  =  ‘8eq_ind_Io; 

Treejeqjtr  *  ‘TreeJeqjudJo; 

People?ert2dPtr  :  ‘PeopieJertices2d; 

Treefert2dPtr  =  ‘Treejertices2d; 

ObjColPtr  :  ‘bgte; 

Draijita  =  object 
procedure  Init; 
end; 

TreeColPtr  =  ‘Treejol; 

Treejravjata  :  object(Drau_Data) 

VerticesJd:TreeJerlices2d; 

Draf_Seq:Tree_Seq_Ptr; 

Orau_Colors:?reeColPtr; 
procedure  Init; 

procedure  SeLTreeJertices2d(objJead,base_x,basejr. 

basej,treejcale:sittgle); 
procedure  Se t.TreeJrauJeq  ( ob j Jead ,  baeej ,  base j , 

basej:  single); 

procedure  Set_TreeJra»_Colors(obj_bead:single); 
procedure  Set_llI_Tree_Draw_Data(obj_head,base_i, basej, base. 

tree_scale:single); 

procedure  Vie«_Tree; 
end;  {TreeJrawJatajDbject) 

Treejraijatajtr  =  ‘Treejraujala; 

Porrestjrray  =  array[1..2fl]  of  Treejraujatajtr; 

Porrest_Of_Trees  *  object 
luiber_of_Trees,Tree_To_lief:Integer; 

The.Trees:  Porrestjrray; 
procedure  Init; 

procedure  8et_free_To_fief(TbeJndei;integer) ; 
function  Getjreejojiei: integer; 
procedure  Set  Jo  jf_Trees(lui:  integer); 
function  GetJo.of.Trees: integer; 
procedure  Viei_Tree(index;integer) ; 
end; 
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Forrest  Jtr  =  ‘Forrest_of  .Trees; 

DataJd.Obj  :  object 
Depth :SiagIe; 

constrnctor  Init(ralue:Single); 
destructor  DoBe;firtaal; 
procedure  Setjeptb(ralue;single); 
fuBction  Getjepth'.siugle; 
procedure  Set  Jrau Jol  ors(  ptr :  Ob jCol  Ptr ) ; 
procedure  Tieu_Obj_l;firtual; 

ead; 

PeopleColPtr  :  ‘PeopIe.Col; 

Peoplejdjbj  =  object{DataJd_Obj) 
Data:PeopleTert2dPtr; 

DraiSeq:Seg_Ptr; 

Drau_Colors:PeopleColPtr; 
coBstructor  Init ( Tal ue : Singl e ) ; 
destructor  Doneisirtnal; 
procedure  Set_Oata(Vert2d:PeopleVert2dPtr); 
function  GetJata:PeopleTert2dPtr; 
procedure  Set Jra«Jeg(Ptr:Seq_Ptr) ; 
function  GetJra«_Seq:Seq_Ptr; 
procedure  SetJrai.Col ors(Ptrl : Peopl eCol Ptr ) ; 
function  GetJrav.Col ors ;  Peopl  eCol Ptr ; 
procedure  Tiei_Obj_I;rirtual; 

end; 

Treejdjbj  ^  object(DataJdJbj) 

Treejndex:  integer; 
constructor  Init(TaIue:Single); 
destructor  Done;Tirtual; 
procedure  Set.TreeJndex(nui: integer ) ; 
function  Get_TreejBdex:integer; 
procedure  yieeJbj_!;Tirtual; 

end; 

Draujeq  =  record 
SeqJ  to  90,Seq_270JoJi0, 

Seq.M_toJ80 ,Seq_lSfl.toJ70 :  Seqjtr ; 

end; 

TreeDrauJeq :  record 
Seq_0  Jo  .45  ,Seq_45_to  JO , 

Seq  )0  to  135,Seq.l3S.to.l80, 
8eq.l80.to.225.Seq.225.to.27fl, 

Seq.270.to.315 ,Seq.315.to.380 :  Tree.8eq.Ptr; 

end; 

Peopl efertPtr  ^  ‘Peopl e.Tertices; 

TreeTertPtr  =‘TreeJertices; 
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PeopleloraPtr  ^  ‘Peoplejon; 

TreeloriPtr  =  ‘Treejort; 

DrnSeqPtr :  ‘Drujeq; 

TreeOrnSeqPti :  ‘TreeDruJeq; 

CoIorIndPtr  :  ‘Colorjadiees; 

TreeColorlodPtr  :  ‘Tiee.ColorJndieas; 

Dati2dPtr  =  ‘DataJd.Obj; 

PeopleData2dPtr :  ‘PaopleJdjObj; 

TreeData2dPtr  =  *Tree_2d_0bj; 

Tar 

Porrest:  Forrest  Jtr; 

Peopl  e  Jata :  Peopl  ef  ertPtr ; 

TreeJata:TreefertPtr; 

Peopl  ejonal  s :  Peopl  elonPtr ; 

Treejonal  s  :TreelonPtr ; 

PeopleJrai_Seq:DraiSeqPtr; 

Tree  Jrai  Jeq :  TreeDraiSeqP  t  r ; 

People_Color_TectorJnd;ColorIndPtr; 

Tree_ColorJectorJnd:TreeColorIndPtr; 

People.Colors.'PeopleColPtr; 

Tree_Colors:TreeColPtr; 

Peopl ejlata2d;  Peopl eData2dPtr; 

Treejata2d:  TreeData2dPtr; 

HeapTop;  ‘eord; 

ains ,  bus ,  eins ,  dins ,  eins ,  fans ,  gins ,  bios ,  ius  ,C0! ,  SOI ,  COR ,  SOR ,  COP ,  SOP ;  Singl  e ; 
procedure  InitJeopleJraphJB; 

(Tbis  procedure  initialires  tbe  soldier  three  diienslonal  displaj  data  that  all  soldiers  use  to 
displar  tkeuelres.  lEH  CODE) 

function  Coipute.Peopl e.Col ors : Peopl eCol Ptr ; 

(Tbis  function  detenines  the  color  to  draw  triangles  of  the  soldier  data  base.  It  assuies  that  the 
Set_Trig_Tal_Obj  has  already  been  called.  lEV  CODE) 

function  ITan(X,  T:  Single); Single; 

(This  fuction  returns  the  value  of  tbe  arc  tangent  of  i  and  7  values  input.  MODIFIED  CODE] 
procedure  Set_TrigJfal_Obj(ObjJan,ObjJoll,ObiJitcb:SiDgle); 

(This  procedure  sets  tbe  trigonoietric  values  used  in  tbe  TienjDbjJ  procedures  of  each  displaj  object. 
lEM  COSE) 

function  Oeptb_Obj(I_Obj,I_Obj,I_Obj:Single):Single; 

(This  function  returns  the  depth  or  distance  of  an  object  froa  tbe  vien  location,  this  depth  value  is 
necessary  to  deteriine  tbe  order  in  which  to  draw  tbe  various  objects.  lEI  CODE  } 

fuction  ThreeD_To.2D_Obj(Xloc,Iloc,XLoc,lead_Obj;Single);PeopleData2dPtr; 

(Tbis  fuction  returns  a  pointer  to  the  two  diiensional  display  coordinates  of  an  object  that  has  been 
translated,  rotated  and  scaled  as  appropriate  for  tbe  display.  lER  CODE) 


80 


iipltMDtatioB 
ues  Shades; 

( iiPLiiinTiioi  MiniD  II  nisis  mnoii } 
end. 


{tttttttetttttetttttttittThe  Pieces  Dnit**********************} 

Onit  Pieces; 

{This  niit  creates  objects  for  data  strnctures  for  the  platoon  soldiers  and  equipient. 
The  entire  Onit  is  IN  CODE) 

Interface 
Bses  People; 

Tjpe 

leaponList  =  (MIS, 1203,160,1249, 111911,147); 

KoreList  =  (larchin9,PorcedNarchin9, Running, Rushing, LonCranlinq, 
lighCrailing , Standing , Kneel ing ,LaTing) ; 

Shootlist  :  (HighTol&iied,Lo«ToUiBed,lighToUrea,LovTolArea, Loading, 
laued,lotPiring]; 

CouList :  (Talking, Listening, Radioing, Signaling); 

IquipList  :  (PrcT7,Prc68,PTS5,PTS4, Bayonet); 
haoList  :  (Rifloliets,MGBullets,SKHBullets,Lats,Grenades, 
Siokes,Plares,BEDP,M203Ili,M203SBk,Claynoies); 

EquipStatus  :  (Rorking, Broken); 
tlertStatus  :  (Biake,  Sleeping); 

Protection  ^  (Corered, Concealed, Eiposed); 

DefStatus  :  (Prepared, last j, Rone); 

LifeStatns '  (11  ire, Dead, Rounded); 

EquipRec  :  record 
IsPresent;Boolean; 

Status ;EquipStatus; 
end; 

EquipBrray  =  lrraj[Prc77.. Bayonet]  of  EquipRec; 

(stores  whether  the  indir  has  a  piece  of  equip  and  its  status) 
iuolrray  :  hrray[Riflullets..ClayMores]  of  Integer; 

ThreeDLocPtr  :  ‘ThreeDLocObj; 

PersPtr  :  ‘PersObj; 

TreePtr  =  ‘TreeObj; 

ThreeDLocObj  :  Object 

1, y,s, heading, Ob jIan,ObjPitch,ObjRolI :  single; 
eonstrnetor  lBit(Pti,Pty,Pti,Orien,Ian,Pitch,Roll:single); 
procednre  iofe(Pts,Pty,Pti :single) ; 
procedure  Cbangejeadinglleijead: Single); 
procedure  Change Jav(let.Ta>;SiB9le) ; 
procedure  Cbange.PitchlleiJitcb:  Singl  e) ; 
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procidnre  ChugeJoll(liiJloll: Single); 
foDction  6etI:siBgle; 
fuctioD  Get! :  single; 
function  GetZisingle; 
fnnetioB  Getleeding: single; 
fnnetioB  Getliiisingle; 
tnuctien  Getlolhsingle; 
fonetion  GetPitek: single; 
destrnetor  Done;  firtul; 
ud; 

PersObj  :  Object(TkreeDlecObj) 

TbreeDDatiPt r : Peopl eTertPtr ; 
loriilsPtr:PeopleloriPtr; 

SegneneesPtr : DrnnSeqPtr ; 

T7pelpn:leiponList; 

TjpeNort'.lorelist; 

TrpeSboot;Sbootlist; 

TjpeContConlist; 

bnoCirriedUMoIrrai; 

SquipCarried:Equiplrraj; 

IrainillertStatns; 

BxposureiProtection; 

DefPostttre:OefStatus; 

BodjStatnsiLifeStatus; 

constrnetor  Init(Ptx,Ptj,Pts,Orien,Iai, Pitch, loll tsingle); 

procedure  SetTbreeDDataPtr(ptr:PeopleTertPtrj; 

procedure  SetlonalsPtr(ptr:PeoplelonPtr); 

procedure  SetSequencesPtr(ptr;Dra«SeqPtr); 

procedure  Setlpn(lpn;HeaponList); 

procedure  SetNoTt(KTt:No?eList); 

procedure  SetSboot(Sht:Sbootlistl; 

procedure  SetCoii(Conade:Coiilist); 

procedure  Setbno(bn:liiolist;tat:Integer); 

procedure  Usebiio(&ii;bnoList;bit:iQteger); 

procedure  Issuelquip(lqu:lquiplist); 

procedure  BreakEquip (Equ : EquipList ) ; 

procedure  PixEquip( Equ: EquipList); 

procedure  SetBrain(cat:&lertStatus); 

procedure  Setlxposare(fis:Protection) ; 

procedure  SetDefPosture(Post:DefStatus]; 

procedure  8etBod7(Cond:lifeStatus) ; 

function  GetThreeDDataPtr : Peopl eeertPtr ; 

function  GetlonialsPtr:PeoplelonPtr; 

function  GetSequencesPtr :DrawSeqPtr ; 

function  GetlpB:leaponlist; 

function  Getloft:loveList; 

function  GetSboot:8bootlist; 

function  GetCoii:CoiiList; 

function  GetBnio(&n:BHoList):lDteger; 

function  CbeckEquip8tat(Equ:EquipList) :EqttipStatus; 
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fuction  CkeeklqaipThere(lqa:lqaipList)  :Boolean; 

function  6etBrain:liectStitns; 

function  Getliposnre:Protection; 

function  GctDefPostnccDef Status; 

function  GetBodp:lifcStatns; 

destructor  Done;  Birtnal ; 

end; 


TreeObj  :  Object(TkreeDLoeObj) 
eosstrnctor  Init(Ptx, Ftp, Ptx.Orien, las, Pitch, Rolhsinqle); 
destructor  Done;  firtnal; 
end; 

iipleientation 

{  INPLBNnTBTIOl  OMITTED  II  THESIS  BPPEIOII  } 


Onit  UPOl; 

{This  unit  is  a  skeleton  for  setting  op  tbe  friendip  forces  that  are  necessarp  for  the  cobat  lodel. 

It  provides  tbe  stroctore  for  a  light  infantrp  plaoon  organisation  and  can  be  expanded  to  provide  the 
structure  for  a  coipanp  sixe  force.  Tbe  entire  Dnit  is  lER  CODE) 

interface 

uses  pieces, people, List; 
const 

Defaoltjnterval; Single  :  0.1; 
tppe 

TeuPoris  :  (TiRedge,TiOnLine,TeaiFile,Mod_ledge,DiaioDd]; 

TeaiPositions  :  (TeaiLdr, ButoRifle, Grenadier, Rifleian,Attachuent); 

SquadPoris  =  (SqdColoin,SqdLine,SqdPile}; 

PltPoris  :  (PltColuin,LineLine,LineCol,pitTee,Pltledge,PltFile); 
lovtTech  :  (Traveling, Travelingjveriatcb, Bounding); 

SqdNsnLst  :  (Move, Bssault, Support, Defend,Delap,Rithdrau, Reserve); 

PireTeuPtr  =  ‘PireTeaiObj; 

PireTeaiObj  =  Object 
TL,BR,GIDR,RN,ITT:PersPtr; 

SoldInt:Single;  (Interval  betueen  soldiers) 

TeaiPon:TeaiPoris; 

Detections:linkPtr; 

procedure  Init(xTl,pTL,iTl:single;Dir:single;Pori:TeaiPoris); 
procedure  Done; 

procedure  SetGRDR(PPtr:PersPtr); 
procedure  Set&R(PPtr:PersPtr); 
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proctdore  SttTl(FPtc:PersPtr); 

procedvre  Setn(PPtr:PersPtr); 

procedgre  SetlTT(PPtr:PtcsPtr): 

procedure  SetSoldierlaternl ( Sp : Single) ; 

proeedare  8etPerutien( Port: TeniFons ; Interf al '.Single ) ; 

proeedare  SetDetections( Dpt r : LinkPtr ) ; 

proeedare  lttaeklUn(PPtr:PersPtr); 

proeedare  Detaeklan(Posit:TeaaPoiitions:m  PPtr:PersPtr); 

fanction  GetDeteetions: LinkPtr; 

fuction  Get6IDS:PersPtr; 

fanction  Gotkl:PoriPtr; 

fanction  GetTL:PersPtr; 

fanction  Gotll:PersPtr; 

fanction  GetkTT:PersPtr; 

fanction  GetSoldierlnterial : Singl e; 

function  GetPorution:TeaiPoras; 

procedure  Sesnpplrfeai{Perc:Single) ; 

procedure  MoreTeai; 

procedure  ChangeTeaaBeading ( ki ; singl e ) ; 

end; 

SqdPtr  :  ‘Squad; 

Squad  :  Object 
SqdLdriPersPtr; 
llphaJraraiFireTeanPtr; 

SqdPon:SqoadPorts; 

SqdNsD:8qttsnLst; 

fcaiInt:Single; 

procedure  Init(iTL,7TL,tTL:single;Dir:single;Pora:SquadPoris) ; 
procedure  Done; 

procedure  8eUPireTeai(&lPtr;FireTeatPtr); 

procedure  SetBPireTean(&BPtr : Pi reTeaiPtr ) ; 

procedure  8etSqdldr(PPtr:PersPtr) ; 

procedure  SetTeaaInterral  ( 8p :  Singl  e ) ; 

procedure  8etSqdForn( Pom; SqnadPoris ; Interval  tSingl e) ; 

procedure  BttachNan(PPtr : PersPtr ) ; 

procedure  DetachHan(Posit:TeaiPositions;var  PPtr:PersPtr); 

procedure  Resnppl TSqd( Perc : Single) ; 

procedure  HoTeSqd(Tecb:loTtTech) ; 

procedure  ChangeSqdEeading(Bi;single); 

function  GetBPireTeai:PireTeaiPtr; 

function  GetBPireTeai;PireTeaiPtr; 

function  GetSqdLdr; PersPtr; 

fanction  GotTeailnterval: Single; 

fanction  GetSqdPort'.SquadPoris; 

procedure  GetSqdloc(var  ss,7s,xs:single); 

fanction  GetSqdleading:single; 

ond; 

PltPtr  =  ‘Platoon; 
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PlttOOO  :  Object 
Fst Sqd , SeeSqd , ThdSqd : SqdPt i ; 

procedure  Ini t ( xTL , jTl , iTL : singl e ; Dir :singl e; Pon: PI  tPons ) ; 

procedure  Done; 

nd; 


far 

0ff8et,SetJPiteb,blternate_alt:singIe; 
iipIoMntation 
uses  ground; 

(  IHPIENEIT&TIOI  OMITTED  II  TIESIS  IPPEIDIX  } 
end. 


{tttttetttttteetttettttttfijg  Pfogmtttmteeteetttttt] 

prograi  Main; 

{This  is  the  lain  prograi  that  uses  all  of  the  units  listed  belou.  The  interface  portion  of  these  units 
is  presented  abofe.  The  laio  prograi  is  lEH  CODE) 

uses  Frago.GText, Erf or, people, List, BSTree, pieces, Grounds, Ground!, Ground, 
shades, crt, graph; 
far 

lUeTeai;FireTeaiPtr; 

ctr: integer; 

Hal fPor: Single; 

Startjeading:  Single; 

procedure  Initialixejisposables; 
far 

irinteger; 

begin 

InitJandMarlildJrraj;  (also  Marks  BeapTop  sbile  creating  array  of  BST's} 
leilBrray.ofJlofers);  (Creates  array  of  Lists  for  each  square) 
PillCbar(Brray_Of_Mofers*,SixeOf(Brray_ofJlofers‘),0};  (Set  all  Pointers  to  nil) 
Brray_OfJlofers*[Trunc(BlueTeai‘  .TL*  .CetX-MapJLCJ) , 

Trnne  ( B1  neTeai* .  TL  ‘ .  Get!  -MapJLCJ )  ] .  Bdd(  Bl  neTeai* .  TL ) ; 
Brray_Of_Mofers‘[Trunc(BlneTeaiMX‘  .GetX*MapJLCJ) , 

TrnnclBlneTeai* .BR‘ .GetX-Map.BLC_X)T.Bdd(BlueTeai‘ .BR) ; 
BrrayJf_Mofers‘(Trane(BlueTeai*.GIDR‘.Geti*Map  BLC  X), 

Trnnc(BlueTeai‘.6IDR‘.6etX-MapJLCJ)].Bdd(BlneTeai‘.GIDR); 

Irrayjf  Jofers‘(TrMc{BlaeTeaiMM‘  .CetX-MapJLCJ) , 

Trnnc  ( Bl  ueTeaiMM* .  GetX -MapJLCJ )].  ldd(  Bl  ueTeai* .  RM ) ; 
if  BlneTeai'.BTT  <>  nil  then 
Irrayjfjofers*  [Trnnc  ( Bl  ueTeai* .  BTT* .  GetX-Map JLC  X ) , 

Trunc(BlueTeai*.BTT'.CetI-MapJLCJ)].idd(BlueTeai*.RTT); 

end; 
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procedure  Initiilixejlodel; 
begii 

lriteln( 'Eater  the  heeding  for  loment  it  stirtup  ia  degrees  i.e.  180.0'); 
leadlaistertjeidiig); 

Start  Jeading : =pi*Start  Jeading/ 180 ; 

lriteln( 'Enter  the  a  coordinate  for  loter  left  comer  of  of  up  start'); 
leadln(Nap_BlC_i); 

lriteln( 'Enter  the  x  coordinate  for  loner  left  corner  of  of  up  start'); 
leadln(NapJlC  Z); 

IIIT3D; 

Shades. Change.Palette; 

Shades. Ini tTones; 
rilllindoi(ll,0); 
niTEPIGE-l-niTEPhCE; 

SETTISUhLPhGEd-niTEPIGE); 

SETlCTIVEPhGE(niTEPAGE); 

PillRindon(Il,0); 

read3dJile(data,Map_BLC_I,RapJLCJ); 

Vie»Jt::0.02; 

Offset::0.5; 

Iai_Dif:=0.0; 

Trans_x::21.2S;  Trans_x::10.0; 

TEhlS  T::  lien  Bt  t  elevatelTrans  I, Trans  Z); 

Set.Light_Source(0.C,1.0,0.0,fl.35,fl.25);  {0.7071068, -0.70710680, 0.75, 0.25);) 

Setjitch::  Pi*3A80;  (lo  higher  than  8)  deg) 

PitchJng::SelJitch; 

&llocate.«i; 

Calcnlatejurfacejoru; 

Calcnlate.Sorface.Colors; 

HalfPOV::0. 523598775; 
tli:=l8;  tli:-25: 
brr:=331:  brx::614: 

seale;:(l*BRI-TlI)*Cos(BalfF0V)/(2*Sin(HalfP0y)); 

InitJeoplejraphJB; 

Bei(BlueTeai); 

BlueTe»Mnit(HapJLC_Ztll.25,eleTate(11.25,15.1),XapJLC_Ztl5.1,Start_Beading,TiRed9e) 


procedure  SetJien_Coord(PPtr;PersPtr;Off:Singie); 

rar 

Off  Jit;  Single; 
begin 

if  (TieiPront  :  True)  then  begin 
Iaijif:s0.fl: 

TietPront::Palse 

end 

else  if  (Tienleft  :  True)  then  begin 
Ianji{:=  -1.570796; 

TieiLeft::Palse 

end 

else  if  (TienRight  =  True)  then  begin 
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iMjif:--  1,5707J6: 

finlight::False 

nd 

else  if  (Tietlear  :  True)  then  begin 
Iiijif::  3.1415)3; 
fie«lear::False 
end 

else  if  (PitekOp  =  True)  then  begin 
Fitch_lng::Piteh.lng  ■  Setjitch; 
PitehOp::False 
end 

else  if  (PitckDn  :  True)  then  begin 
Fiteh_hng:=Pitch_hng  *  Setjitch; 
PitchDn::False 
end 

else  if  (leightOp  =  True)  then  begin 
fieujt::  lieijt  ♦  0.2; 
leightDp;:False 
end 

else  if  (leightDn  =  True)  then  begin 
liei_ht:=  Tieujt  -0.2; 

HeightDn::False 

end 

else  if  (looiln  :  True)  then  begin 
Seale;:  2*Scale; 

Iooiic;:False 

end 

else  if  (looiOut  :  True)  then  begin 
Scale;:Scale*0.5; 
looiout::False; 
end; 

Ia« Jng;:  PPtr'.GetHeading  ♦  laujif; 

Trans_xi:  PPtr‘.Cetx-HapJLCJ-off*Sin(Ia»Jng); 
Transj;:  PPtr‘.Getx-MapJLCJ-off*Cos(Ia«_lng); 
Trans j;:  eleTate(Trans_x,Trans_x)*fieOt; 
end; 

begin 

Initial  ixejodel; 

Set  Jien_Coord(BiueTeai‘.TL, Offset); 
CbeekJisplajJeiain; 

Initialise Jisposables; 

Tiet; 

for  ctr::l  to  5  do  begin 
lelease(leapTop); 

IIieTcaiMofeTeai; 

Setji  ei.Coord  ( 1 1  ueTeai* .  TL ,  Of  f  set ) ; 
Ckcekjisplapjeiain; 

Initialixejisposables; 

Tiei; 
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end; 

Reletse(IeipTop); 

llaeTeai‘.8etforMtion(TiOnline,DefaaUJttteml); 

lUeTenMoTeTeu; 

Set_fief_Coord(BlaeTeai\TL  .Offset) ; 
CbeekJisplajJeuin; 

Initialisejisposables; 

fie*; 

for  etr::l  to  S  do  begin 
lelease(!eapTop); 

IlneTeaiMofeTeai; 

Set_Tiei_Coord(llueTeai‘ . TL, Offset) ; 
Cbeckjisplayjeiain; 

Initialisejisposables; 

fie«; 

end; 

lelease(HeapTop); 

Bl  ueTeai* .  Set  Foriat  ion  ( Tailedge ,  Def  aul  tjnt  ert  al ) ; 
BlueTeai'.Nofefeai; 

Set_Tie*_Coord(BlueTeaB‘.TL, Offset); 
CbeckJisplajJeiain; 

Initialisejisposables; 

fiei; 

Release(BeapTop); 

BlaeTeaa‘.SetForBation(ModJedge,DefaultJnterval); 

BlueTeaa'.Mofefeaa; 

Se t _?i ei.Coord ( Bl uefeai" . f L , Of  f set ) ; 
CbeekJisplajJeuin; 

Initialisejisposables; 

fiei; 

for  etr::l  to  5  do  begin 
Release(BeapToF); 

BlueTeaa'.HofeTeaa; 

Set  JiewJoordlBlueTeaa'.TL, Offset); 
CbeckJisplajJeaain; 

Initialisejisposables; 

fiei; 

end; 

Release(BeapTop); 

Bl  neTeaa* .  SetForution  ( TeaaFi  1  e ,  Def  aul  tjnterfal ) ; 
BlueTeaa'.KofeTeaa; 

Set  Jie*  Joord(  Bl  ueTeaa* .  TL  ,0f  f  set ) ; 
CbeckJisplajJeaain; 

Initialisejisposables; 

fiev; 

for  ctr::l  to  S  do  begin 
Release(ReapTop); 

BlneTeaa'.NofeTeaa; 

Set  Jie*  Joord(BlueTeaa'.TL, Offset); 
CbeekJisplajJeuin; 

Initialisejisposables; 


88 


*iea; 

end; 

lele«3e(letpTop): 

Bl  ncTeu* .  8etFonatioD(  Diaiood ,  Def  aul  tjnt  ernl ) ; 
llaeTeii'.MoteTeai; 

Set  Jiet_Coord(BlaeTe»‘  .TL.Of  f  set) ; 
Cheekjisplapjeuin; 

Initial  lie  Jisposables; 

Tiev; 

for  etr::l  to  5  do  begin 
lelease(BeapTop); 

BlueTeaiMloTeTen; 

Set  JieijCoord(BlneTeai‘.TL, Offset); 
CbeckJisplaTjteuin; 

Initialiiejisposables; 

Tiev; 

end; 

Release(BeapTop); 

BlueTeaa'.SetFonationlTiAedge.DefaultJnterTal); 

BlneTean'.MoTeTean; 

Set  Jiev_Ceord(BlueTeai*  .Tl, Off  set) ; 
CheckJisplajJeiain; 

Initialiiejisposables; 

Tiev; 

for  ctr;:l  to  10  do  begin 
Release(HeapTop); 

BloeTeav'.MoTeTeai; 

Set_Vies_Coord(BlueTeaB*.Tl, Offset); 
Checkjisplapjeiain; 

Initialiiejisposables; 

Tiev; 

end; 

Release(HeapTop); 

BlueTeu'.NoTeTeai; 

Set  JievJoord(BlneTeav‘.TL, Offset); 
CbeckJisplajJeuin; 

Initialiiejisposables; 

Tiev; 

B1 neTeai* . ChangeTeaiBeading ( 0 . 7  S5  3 ) ) ; 
for  ctr::l  to  20  do  begin 
Release(BeapTop); 

BlneTeaiMoTeTeai; 

Set  Jiev  Joord(BlneTeai‘  .Tl,0f  f  set ) ; 
CbeckJisplaiJeMin; 

Initialiiejisposables; 
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fiei 

end; 

IlneTen*  .ChugeTeaileidingU  .5T0TM) ! 
for  etr::l  to  20  do  begin 
leleue(leapTop): 

BlneTeiiMoTeteni; 

Set  Jiei_Coord(BlueTeu‘ .  TL  .Offset) ; 
CbeekJispUjJemin; 
Initiiliiejisposnbles; 
fiei 
end; 

BlneTeai‘.ChangeTenieading(2. 3561)45); 
for  etr::l  to  20  do  begin 
Release(HeapTQp); 

BlaeTeai'.NoTefeaa; 

Setjriei.Coord ( Bl ueTeaa* . TL ,0f  f set ) ; 

CbeckJisplajJeaain; 

Initialiiejisposables; 

Tie* 

end; 

BlueTeai* . CbangeTeaaHeadingi pi*190/180 ) ; 
for  ctr::l  to  45  do  begin 
Bel  easel HeapTop); 

BlueTeaaMloTeTeaa; 
Set.Tiei.CoordlBlueTean' .TL, Offset) ; 

Check  JisplapJeiain; 
Initialiiejisposables; 

Ties 

end; 

Kelease(HeapTop); 

Trans.i :  *  trans_xO .  5355339; 

TransJ : =trans_x- 1 . 4644661 ; 
Trans_7::elerate(trans_i,trans_t)  ^  Tievjt; 
lai_ang::lai_ang>0. 785398163; 

Check  Jispl  ay  Jeiain; 

Initialiiejisposables; 

fiei; 

Bel easel EeapTop); 

Trans.x: =trans_i4l . 4644661 ; 

TransJ : = trans  j-3 . 5355339 ; 
Transj:seleTate|trans_x,trans_i)  ♦  Tieijt; 
Iai_ang;:Iaw_angtO. 785398163; 
CbeckJisplajJeuin; 

Initialiiejisposables; 

fiei; 

BeleaselBeapTop); 

Trans_x::trans_x-3. 5355339; 

TransJ ; :  trans.i- 1 . 4644661 ; 
Transj:=elefate|trans_x,transj)  ♦  fieijt; 
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Iii.ug :  :T»_angtO .  7853981(3 ; 
Clkeck_DisplaTjeuin; 

Initialiiejisposables; 

Tiei; 

ItltasedupTop); 

Tius_x::ttus_i-1. 4(448(1; 
Trusj::trus_i*3. 5355339; 
Trus_7::elente(traas_i,trus_i)  i  Tieijt; 
Ia«_ng::I»jugtO. 7853981(3; 

Initial  ixejisposables; 

Tin; 

eb::ieadke7; 

leleasadeapTop); 

Restore; 

CLOSEGRiPE; 

end. 
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APPENDIX  D.  ASSEMBLY  CODE  ROUTINES 


This  Appendix  is  referenced  in  Chapter  IV  of  the  thesis  in  the  section 
regarding  Graphics  Implementation  Issues.  The  intent  of  this  chapter  is 
to  provide  a  complete  listing  of  the  FillTri  and  FIUTriC  routines  and  the 
routines  they  need  to  operate  properly.  A  complete  listing  of  the  sovurce 
code  file  is  provided  on  the  following  pages. 


.MODEL  TPiSCiL 

IptesPerLine 

XQD 

80  ;  Ruiber  of  Bytes  is  fideo  buffer  per  line 

OiiginOffsetl 

XQO 

0  ;  Byte  offset  of  (0,0)  OR  FIRST  PB6X 

OrigittOffsetl 

XQO 

BOOOh 

;  Byte  offset  of  (0.0)  OR  SXCORD  PBGX 

fideoBttfferSeg 

XQD 

OXOOOh 

;  Video  leiory  location  Page  1 

BjteOffsetShift 

XQO 

3 

;  used  to  eonrert  pixels  to  byte  offset 

PillSOa 

XQO 

OBih 

;  10101010b 

PillSOb 

XQC 

55h 

;  01010101b 

PlllSOc 

XQO 

OUh 

PillSOd 

XQO 

SSh 

PilllSa 

XQO 

44h 

;  OlQOOlOOb 

Pill25b 

XQO 

lib 

;  00010001b 

Pill25c 

XQO 

44h 

rill25d 

XQO 

lib 

Filll2a 

XQO 

20b 

;  00100000b 

Pilll2b 

XQO 

02b 

;  00000010b 

Filll2c 

XQO 

80b 

;  10000000b 

Pilll2d 

XQO 

08b 

;  00001000b 

.DBTB 

TarPilla 

DB 

? 

var  for  keeping  current  fill  for  1st  row 

Tarfillb 

DB 

y 

...  .  -  »  2d  row 

ParPillc 

DB 

7 

3d  row 

farPilld 

DB 

7 

4tb  row 

CuirPill 

DB 

7 

Byte  code  to  keep  track  of  wbicb  Tarfill 
to  use  next 

PatCode 

DB 

7 

war  to  store  fill  pattern  for  this  row 

COIOI 

OB 

7 

war  to  store  current  fill  color 

COIORI 

DB 

7 

C010I2 

DB 

7 

< 

IITIMP 

DR 

7 

t 

var  to  store  taporarily  ordered  tri 

X2TnP 

DR 

7 

values 

X3TIMP 

DR 

7 

var  to  store  teiporarily  ordered  tri 

IITIMP 

DR 

7 

values 
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i2Tnp 

N 

?  ;  Tar  to  store  tciporarili  ordered  tri 

I3TIIP 

DR 

?  ;  TaUei 

ITLT 

DR 

?  ;  Right  Liait  of  horiiontal  lioe 

IFLT 

OR 

?  ;  leh  Liiit  of  loriio&tal  line 

ITITI 

DR 

?  ;  Right  Liait  of  horiiontal  line 

IFLTl 

DR 

?  :  Left  Liait  of  Roriaontal  line 

ITLT2 

DR 

?  ;  Osed  as  Right  Liait  if  1-2  and  1*3 

;  are  Ion  slope 

LPIT2 

DR 

?  ;  Used  as  Left  Liait  if  *  «  ■  •  • 

PIIST13 

DB 

?  :  Osed  to  indicate  if  1-3  nses  first  or  last 

;  nine  in  Ion  slope  routine 

PII8T12 

DB 

9 

1 

U8T23 

DB 

9 

« 

ITLTUT 

DR 

9 

ICDRR 

DR 

?  ;  Current  I  Talue  for  Boriiontal  line 

DI13 

DR 

9 

DI12 

DR 

9 

DI23 

DR 

9 

TR81IIC13 

DR 

9 

fRR2IICI3 

DR 

9 

V&R1IIC12 

OR 

9 

f&R2IIC12 

DR 

9 

flRlIIC23 

OR 

9 

« 

fRR2IIC23 

OR 

9 

IORIIII13 

DR 

9 

IOtIZII12 

DR 

9 

10RIZII23 

DR 

9 

lOUSl 

DR 

?  ;  Osed  ihen  anUipUeation  is  required 

IIIRSI 

DR 

9 

SLOPE13 

DB 

9 

SIOPE23 

DB 

9 

SL0FE12 

DB 

9 

tOOTIIE13 

DR 

9 

IODTIIE12 

DR 

9 

RODTIIE23 

DR 

9 

COOITERl 

DR 

9 

COOITER2 

DR 

9 

SPECC&SE 

DB 

9 

nm 

TLI:RORD 

;  Top  left  y  coordinate  of  Tien  lindon 

nni 

ni:BOID 

;  Top  left  1  coordinate  of  Tien  niadon 

HTRI 

UI:R01D 

;  Bottoa  right  y  coordinate  of  riew  tindon 

IITN 

BlItROID 

;  Bottoa  right  i  coordinate  of  niei  nindon 

Eini 

DITR  1108 

RIITIPB6E:R0BD  ;  fidio  Page  to  orite  oo 

;Ckugia9  Mlbiti  to  llh  :  lOK,  0th  :  ud,  lOh :  or,  00 :  Keplace 
.CODE 

Eini  NILIIE:  lEAR 
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Piiellddr  PIOC  IIU 

PUBLIC  Pizellddr 


;  Pnnction:  Detenine  bnffer  address  of  piiel  in  natire  E6B  aad 

• 

f 

3201200  1(  Color 

t 

f 

(40x200  16  Color 

• 

1 

(40x350  1(  Color 

• 

1 

(40x480  2  Color 

t 

t 

(40x350  lottoehroie 

• 

t 

t 

(40x480  1(  Color 

;  Caller: 

U  :  j  •  coordinate 

« 

t 

BE  :  X  -  coordinate 

t 

:  Retnrns 

AH  :  Bit  lask 

« 

1 

BE  :  bpte  offset  in  Buffer 

1 

CL  :  nnber  bits  to  shift  left 

f 

ES  :  video  buffer  segient 

NOV 

CL,BL  ;  CL  lov  order  byte  of  x 

POSB 

OR  ;  preserve  DX 

NOV 

DX.BytesPerLine  ;  AX  y*B7tesPerLine 

NDL 

OX 

POP 

DX 

SHR 

BX,1 

SHE 

BX,1 

SHR 

BX,1  :  BX  x/B 

ADD 

BX.AX  ;  BX  ::  T*IXf<sPerLine  ^  x/8 

NOV 

AX.RRITEPAGE 

CNP 

AX,0 

JNI 

OTEERPAGE 

&D0 

BXiOriginOffsetl 

JNF 

GTG 

OTiERPRGE; 

ADD 

BX,0rigin0ffset2  ;  BX  ::  byte  offset  in  Video  Buffer 

GTG;  NOV 

AX.VideoBufferSeg 

NOV 

ES,AX  ;  ES:BX  byte  address  of  pixel 

AID 

CL, 7  ;  CL  :=  X  (  7 

lOI 

CL, 7  ;  CL  ::  no^er  of  bits  to  shift  left 

NOV 

AB,1  ;  IE  ::  ansbifted  bit  lask 

ret 

Piiellddr  HOP 

;  eoafigure  pattern  rariables  for  fill 

SetPattern  PIOC 

pat_no:byte 

PUBLIC 

SetPattern 
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This  roatine  sets  the  pittern  to  fill  a  triangle 
0  :  50h  fill 

1  :  251  fill 

2  :  12.51  fill 


;  detenine  which  pattern  is  desired 

MOT  IL.patjio  :  IL  ::  patjio 

CKF  Ui.O  ;  if  patjio  =  0  then  go  to  POl 

JE  POl 

CXP  U,1  ;  if  patjio  =  1  then  go  to  P02 

Jl  P02  ;  else  pattern  ^  2  (124  fill) 

NOV  UI,Pilll2a  ;  (124  fill) 

NOT  [VarPilla],iB 

NOV  hB,  Pill  12b 

NOT  [VarFillb],hB 

NOV  iB,Pilll2e 

NOT  [TarFillc],hB 

NOT  hB,Pilll2d 

NOT  [TarPilldl.hB 

JHP  PEIIT 


NOT  tB, Pill 50a  ;  504  fill 

NOV  [TarPillaj.&H 

NOT  IB, Pill  50b 

NOV  (VacPillb].iB 

NOT  hB.PillSOc 

HOT  [TarPillc],hB 

NOT  IB.PillSOd 

NOT  (TarPilld],iB 

JNP  PEIIT 


HOT  U,Pill25a  ;  254  Pill 

HOT  [VarPilla],IB 

NOT  hB,Pill25b 

NOT  [TarPillb],IB 

NOT  IB, Pill  25c 

NOT  [TarPille],hB 

NOT  hB,Pill25d 

NOT  [TarPilldl.hB 

PEIIT:  NOT  hl.SOh  ;  Set  pattern  code  for  1st  row 

HOT  [PhTCODEl.hl 

BET 

SetPatterc  EBDP 
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CnflgGriph  PIOC  lUI 


;  configure  graphics  controller 


NOT 

DX,3CEh  ; 

OX  Graphics  Controller  port  addr 

NOT 

U, [color] 

;  AH  :=  pitel  color 

XOR 

11,  U 

:  AL  ::  set/reset  register  nniber 

OOT 

0X,hX 

NOT 

RX.OPOlh 

;  AH  ::  llllh  (hit  plane  lask  for 
;  Enable  Set/Reset  Register  I 

OOT 

OX,  AX 

;  AL  ::  Enable  Set/teset  Register  t 

NOT 

AB,RMIbits 

;  bits  3  and  4  of  AI  function 

NOV 

AL,3 

;  AL  ::  Oata  Rotate/Func  Select  Reg  1 

OOT 

RET 

OX,  AX 

ConfigGraph  ERDP 

Horline  PROC 

near 

;  This  routine  draws  a  horisontal  line  using  a  fill  pattern.  It  is  onlj  used  by  FillTri  and  FillTriC 
;  The  uriables  ICQKR,  PhTCODE,  IfUl,  and  rtltl  sust  be  set  by  FillTri  before  calling  this  procedure. 


Set 


fill  for  this  line  using  pattern  code 
NOV  &L,80b 

NOT  DX,CI 

NOT  CMICORR] 

RID  CL,03h 

8El  CL,1 

ROR  1L,CL 

NOT  [PITCODEl.&L 

NOT  CX,DX 

CNF  hl,80h  ;  check  code  to  detenine  uhich  row  to  use 

JE  QOl 

CNF  hl,20h 

JE  Q02 

CNF  lL,08h 

JE  go3 

NOT  U,[ThRFILLO] 

NOT  [CnRFIlI.],» 

JNP  QEXIT 
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QOl; 

NOT 

ll,[VUPILLR] 

NOT 

[COSIPILL],UI 

JNP 

gniT 

Q02; 

NOT 

U.[TUPILLB] 

NOT 

[cntPiLii.u 

INP 

QUIT 

QOS: 

NOT 

U,[TUPILIC] 

NOT 

[CORRFILLl.il 

;  preserve  SI  t  D1 

QEIIT:  POSH  SI 

POSB  DI 


;  routine  for  Horiiontal  lines  (slope  :  0] 


NOT 

Rl,[ICtIIRl 

»p 

bx,cx 

ib 

nochange 

xchg 

bx.cx 

nochange;  lov 

[Ifltll.bx 

BOT 

[rtltlj.cx 

CALL 

PIZELIDDR 

RE  Bit  Hash 

I8:B1  ->  video  buffer 

CL  1  bits  to  shift  left 

NOT 

DI,BI 

IS:DI  •>  video  buffer 

NOT 

DR,  RE 

DR  Bit  task  for  first  bpte 

ROT 

DI 

DI  reverse  bit  usk  for  first  bjte 

SIl 

DE.Cl 

NOT 

DI 

DI  bit  Bask  for  first  byte 

HOT 

CI,[RTLT1] 

RID 

CL, 7 

ZOR 

CL, 7 

CL  nuBber  of  bits  to  shift  left 

ROT 

DL.OFFh 

DL  nnshifted  bit  Bask  for  rigbtBOSt 
bjte 

SIL 

DL,CL 

DL  ::  bit  Bask  for  last  bjte 

;  detenine  bjte  offset  of  first  ind  last  pixel  in  the  line 
ROf  &I,[ITIT1] 

ROf  II.iiriTl] 

NOT  Cl.BrteOffsetSbift 

SIR  U,CL  ;  11  bjte  offset  of  x2 
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sn 

II,  CL 

;  IX  ::  byte  offset  of  il 

lOf 

CX.bl 

SOB 

CX,BI 

;  CX  ::  (tbytes  in  line)  *  1 

;  get  graphics  controller  port  address  into  DX 

KO? 

BI,DI 

;  II  ::  bit  Msk  for  first  byte 

;  IL  ::  bit  lask  for  last  byte 

;  tentatire  begin  of  loop  sane  bi, 

ei,di,si 

POSB 

BI 

POSH 

CX 

POSH 

DI 

POSH 

SI 

HorixLine; 

and 

bl,[carrfill] 

;  get  pattern  correct  for  first 

;  and  last  byte 

and 

bh,[corrfill] 

HOT 

SX,3CEh 

;  DX  ::  Graphics  Controller  Port 

MOV 

bL,8 

;  IL  ::  lit  Mask  Register 

;  lake  rideo  buffer  addressable  through  DS:SI 

POSE 

OS  ; 

preserve  DS 

POSH 

IS 

POP 

DS 

HOT 

SI, SI 

;  DS:SI  ->  rideo  buffer 

;  set  pixels  in  leftiost  byte  of  the  line 

OR 

BI,BB 

JS 

143 

;  jnip  if  byte  aligned  (  xl  is  leftiost 
;  pixel  in  byte 

OR 

CI,CX 

JHX 

142 

;  imp  if  lore  than  one  byte  in  the  line 

BHD 

BL,II 

;  IL  :=  bit  lask  for  1st  byte 

JHP 

SHORT  L44 

L42:  MOT 

U,IH 

;  update  graphics  controller 

ODT 

DX,1I 

;  II  ::  bit  lask  for  1st  byte 

lOTSB 

;  update  bit  planes 

DEC 

Cl 

;  ise  a  fast  BOSS 

Mchine  instrnction  to  drav  the  reiainder  of  the  line 

L43;  POP 

DS  ;  MBK!  DBT  SEGMEIT  BDDRESSBILE 
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MO? 

hB,[cnrrfill] 

POSB 

DS 

;  PIBSBBVB  DS 

PDSB 

ES 

;  HUE  VIDEO  BOPPn  BDDBESShBLE  TEB006B  DS;SI 

POP 

DS 

OOT 

DX,U 

UP 

NOfSB 

;  Drav  line  a  bpte  at  a  tiie 

;  set  piiels  in  the  rightiost  bjte  of  the  line 

L44:  NO?  IB,BL  ;  U  ::  bit  usb  for  last  bjte 

OUT  DX.&X  ;  update  graphics  controller 

NOVSB  ;  update  bit  planes 


POP  DS  ;  restore  DS 


NOV 

IL,[CDRRFILL] 

;  IL  ::  current  fill  pattern 

EOT 

&L 

;  U  ::  reeeise  fill  pattern 

NOV 

[CORRPILLl.&L 

;  new  fill  pattern  for  saie  boriiontal 
;  line.  Set  pattern  to  get  at  pixels 
;  not  changed  on  first  pass 

NOV 

AH,[COLOR2] 

:  set  color  to  background  fill  i 

NOV 

[ COLOR l.BB 

;  for  second  pass 

NOV 

DX,3CEb  ;  DX 

::  Graphics  Controller  port  addr 

XOR 

BL.BL  ;  BL 

set/reset  register  nunber 

OOT 

ox.&x 

POP  REGISTERS  TBAT  HERE  ShVED 

POP 

SI 

POP 

DI 

POP 

CX 

POP 

BX 

and 

bl,[curtfill] 

;  get  pattern  correct  for  first 
;  and  last  bjte 

and 

bb,[currfilll 

NOV 

DX,3CEh 

;  DX  Graphics  Controller  Port 

NOV 

U.S 

;  BL  Bit  Mask  Register 

uke  rideo  buffer  addressable  through  DS:SI 

POSB 

DS  ; 

preseree  DS 

PDSB 

ES 

POP 

DS 

NOV 

SI,DI 

;  0S:SI  ->  rideo  buffer 
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;  set  pixels  in  leftiost  byte  of  the  line 


OR 

BB.BE 

IS 

L43B 

;  juip  if  byte  aligned  (  xl  is  leftiost 
;  pixel  in  byte 

01 

Cl,  Cl 

III 

L42B 

;  juip  if  tore  than  one  byte  in  the  line 

UD 

BL.BR 

;  BL  ::  bit  msk  for  1st  byte 

IMP 

SHORT  L44B 

142B: 

MOV 

RB.BR 

;  update  graphics  controller 

OOT 

DX,U 

;  IH  ::  hit  msk  for  1st  byte 

MOVSB 

;  update  bit  planes 

DEC 

Cl 

;  use 

a  fast  8086  lachine  instruction  to  drai  the  reminder  of  the  line 

L43B: 

POP 

DS  ; 

MIKE  DAT  SEGMEIT  ADDRESSABLE 

MOV 

&E,[currfill] 

POSH 

OS  ; 

PRESERVE  DS 

POSH 

ES 

MAKE  VIDEO  BOFFER  ADDRESSABLE  TBROOGH  DStSI 

POP 

DS 

OOT 

DX.RI 

REP 

MOVSB  ; 

Drau  line  a  byte  at  a  tine 

set  pixels  in  the 

rightnost  byte  of  the  line 

L44B: 

MOV 

BH.Bl  ; 

AB  bit  msk  for  last  byte 

OOT 

DX.BE  ; 

update  graphics  controller 

MOVSB 

f 

update  bit  planes 

POP 

DS  ; 

restore  DS 

MOV 

iL,[CORRFILL]  ;  &l  current  fill  pattern 

lOT 

11 

;  AL  ::  reverse  fill  pattern 

MOV 

[CORRFIlL],iL  ;  ne«  fill  pattern  for  saie  borixontal 

;  line.  Set  pattern  to  get  at  pixels 
;  not  changed  on  first  pass 


MOV 

AE,[C0L0R1] 

;  restore  primry  color  after  second 

MOV 

[COLOR], AH 

;  pass 

MOV 

DX,3CBh  ;  DX  : 

Graphics  Controller  port  addr 

XOR 

AL,AL  ;  AL 

::  set/reset  register  nuiber 

OOT 

DX.AX 

SKIPJDKP; 
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POP  DI 

POP  SI 

in 

lorLioe  HOP 


IISLOPE  PIOC  nil 

;  This  routisc  is  used  by  the  liSlope  routines  (i.e.  liSlopell)  ind  returns  the 
;  increient  to  tore  horiiontally  to  find  the  border  pixel  in  register  BI.  Th  iX  register 
:  returns  the  nei  01  Ttrinble 


01 

EX, EX 

JIS 

lOIEGDI 

IDD 

EX,BX 

XOR 

BX.BX 

IMP 

EIBTE 

lOIBGDI: 

hOD 

EX.CX 

MO? 

BX.DX 

EIBYE: 

RET 

BISLOPE 

EIDP 

LOSLOPE 

PROC 

EEER 

;  This  routine  is  used  by  the  loiSlope  routines  (i.e.  LouSlopell)  and  returns  the 
;  increient  to  lore  horixontally  to  find  the  border  pixel  in  register  BX.  Tb  hX  register 


;  returns 

the  neu  DI  miable 

POSE 

SI 

XOR 

SI, SI  ;  sero  SI 

LOSLO  ; 

EDD 

SI,DX  ;  add  horixontal  increient 

OR 

EX, EX  ;  check  DI  for  to  see  if  positife 

JIS 

PODI 

EDO 

EX,BX 

JNP 

LOSLO 

PODI; 

MO? 

IX,SI 

EDD 

EX,CX 

POP 

SI 

RET 

LOSLOPE 

EIDP 

BiSlopelS 

PIOC 

HER 

;  This  routine  iipleients  Bresenhai's  algorithi  for  the  High  Slope  case 
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lOV 

U,[DII3] 

NOT 

II,[T1R1IIC13] 

NOT 

CI,[TRR2IICI3j 

NOT 

DI.[I0RIIII13] 

C&LL 

EISLOPE 

NOT 

[DI13].U 

NOT 

U,[LFLT] 

m 

RI.EI 

NOT 

[LPLTl.U 

RET 

liSlopelS 

EIDP 

LovSlopel3 

PIOC 

REER 

NOT 

EI,[DI13l 

NOT 

I1,[TER1IIC13] 

NOT 

CX,[TER21IC13] 

NOT 

DX,[E0RIZIR13j 

CELL 

LOSLOPE 

NOT 

[DI13],EX 

NOT 

EX,[LPLT] 

tOD 

EZ,BX 

NOT 

[LPLT],EX 

RET 

lovSlopeU 

EIDP 

Verticals 

PROC 

lEER 

NOT 

BX,[XITENP] 

NOT 

[LPLT],BX 

RET 

ferticall3 

EIDP 

EiSlopeI2 

PROC 

lEER 

NOT 

EX,[DI12] 

NOT 

BX,|tEI1IIC121 

NOT 

CX,[TER2IIC12] 

NOT 

DX,[E0RIZII12] 

CELL 

EISLOPE 

NOT 

[DI12],EX 

NOT 

U,[ITLT] 

ROD 

EX,  BE 

NOT 

[RTLT],EX 

RET 

liSlopel2 

EIDP 
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Lo*Slopel2 


PKOC  HU 


MOY 

U.[DI12] 

HOY 

II,[TUIIIC12] 

MOY 

C1,[tU2IIC12] 

MOY 

Dl, [101111112] 

CUL 

lOSLOPE 

MOY 

[DI12].U 

MOY 

U,[ITLTl 

IDD 

U,IX 

MOY 

[RTLTJ.U 

in 

LoiSlopel2 

no? 

?erticaI12 

PIOC 

lEU 

MOY 

11,[X2TEMP] 

MOY 

[RTLTj.BX 

MOY 

[DI12],D 

RET 

YerticaI12 

EIDP 

EiSlope23 

PIOC 

lEIR 

MOY 

IX,[DI23] 

MOY 

BX,[YU1IIC23] 

MOY 

CX,[YIR2IIC23] 

MOY 

DX.[EORIXII23] 

CILL 

EISLOPE 

MOY 

[DI23],IX 

HOY 

IX,[RTLTILT] 

IDD 

IX,  BX 

MOY 

[RTLTILT],IX 

RET 

HiSlope23 

EIDP 

lQiSlQpe23 

PROC 

lEIR 

MOY 

U,[0I23] 

MOY 

BX,[YIR1IIC23] 

MOY 

CX,[tU2IIC23] 

MOY 

DX,[IORIXII23] 

GILL 

LOSLOPE 

MOY 

[DI23],IX 

MOY 

U,[RTLTILT] 

IDD 

IX, BX 

MOY 

[RTLTILT],IX 

in 


Lo>Slope23 

lIDP 

Tertical23 

PIOC 

lEBI 

lOV 

BX,[X2TENP] 

lOV 

[ITITBITI.IX 

NOV 

[DI23],Q 

in 

Vertical  23 

EIDP 

lorixontal23 

PIOC 

near 

NOV 

IX,[X2TEHP] 

NOV 

[ITLT],IX 

RET 

ioritontal23  EIDP 


FillTri  PROC  il:RORD,rl:RORD,t2:RORD,j2:RORD,i3:IORDj3;«oid,D:Bm,o:b7te,Rinbits:BITE 
PUBLIC  FillTri 

;  This  routine  fills  a  triangle  identified  by  its  three  vertices  tith  a  pattern  of  tio  colors, 

;  n  and  o.  The  variable  IIHbits  set  the  graphics  controller  to  vrite  using  BID,  OR,  or  lOR  Logic. 

;  The  pattern  lost  be  set  befor  calling  this  routine  lith  routine  SetPattern.  This  routine  uses  the 
;  folloiing  routines  *■  ConfigGraph,  PiielBddr,  lorline,  all  liSlope  (i.e  BiSlopel2), 

:  all  lovSlope  (i.e.  LovSlopel2),  all  Vertical  and  Boriiontal  Routines  (i.e.  Vertical23) 

;  Order  values  so  that  II  is  I  tin  and  13  is  I  lai 
POSH  SI 

POSE  DI 

;  Set  fill  color  for  this  line  using  color  code 


NOV 

BL,I  ;  BL 

:=  fill  color************ 

NOV 

[COLOR], BL  ;  Color  =  fill  color*»*»»**»*»» 

NOV 

[COLOllj.BL 

NOV 

BL,0 

NOV 

[C010R2],BL 

CELL 

COIFIGGRBPH 

XOR 

BL,BL 

NOV 

ISL0PE13],BL 

Set  all  slopes  equal  to  lero 

NOV 

isLOPI12j,BL 

NOV 

[8lOFE23j,BL 

NOV 

BX,T1 

Hove  all  X  B  T  values  to 

NOT 

IX, 12 

to  processor  registers  before 

NOT 

CX,I3 

bcgianiag  sort. 

NOT 

DX,X1 

Values  are  sorted  froi  Inest  to 

NOT 

DI,X2 

highest  I  vaUes.  If  I  values  are 

NOV 

81, X3 

sale  then  sort  hj  louest  X  value. 

CNP 

BX,BX 

lEGIl  SORT 

;e 

FOl 

IBID  TO  CBECX  TO  ORDER  BT  X  TILDES 
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JR 

F02  ;  NEED  TO  REORDER 

HIT: 

CMP 

BI.CZ 

JE 

FOR  :  lEED  TO  CBECK  TO  ORDER  BI  I  VRIOES 

JR 

F04  ;  EEED  TO  REORDER 

JMP 

ORDERED 

POl: 

CMP 

DX.DI 

JBE 

IIXT  :  ORDER  IS  OKRT  IF  XI  •  X2  <=  0  ELSE  GO 

;  TO  F02 

P02: 

ECHO 

RX,BX  ;  Exehuge  X  ud  I  values 

ICHG 

DX.DI 

JMP 

NEXT  ;  Go  back  and  start  on  point  Tvo. 

F03: 

CMP 

DI.SI 

JBE 

ORDERED  ;  ORDER  IS  OKRI  IF  X2  -  X3  <=  0  ELSE  GO 
;  TO  F04 

F04: 

XCBG 

BX,CX  ;  Exchange  X  and  I  values 

ICHG 

DI.Sl 

CMP 

RX,BX 

JE 

RLTCRECK 

JR 

REORDER 

JMP 

ORDERED 

tLTCBECK; 

CMP 

DX,DI 

JBE 

ORDERED 

REORDER; 

ICBG 

RX,BX  ;  Exchange  X  and  I  values 

ICHG 

DX,D1 

ORDERED: 

MOV 

[T1TENP],RX  ;  Save  the  Correctly  ordered 

MOV 

[T2TIMFj,BX  ;  land  I  Values 

MOV 

[I3TEMP],CX 

MOV 

[X1TINP],0X 

MOV 

[X2TENP],DI 

NOV 

[X3TINP],S1 

NOV 

[LFLT],DX  ;  Initialise  left  liiit,  right  liiit 

NOV 

|rTLT],DX  ;  right  liiit  alternate,  and  I  current 

MOV 

[RTITRLT],DI 

NOV 

[ICORR],RX 

NOV 

U,SI  ;  RX  ::  X3 

MOV 

BX,l 

SOB 

RX,DX  ;  RX  X3  •  Z1  :  DX13 

JI 

TIRT13  ;  JUMP  IF  LIRE  nON  1  TO  3  IS  VERTICRL 

JIS 

F05  ;  JUMP  IF  POSITIVE 

BEG 

RX 

MEG 

BX  ;  MRKE  RORIX  IRC!  FOR  LIRE  1-3  REGRTIVE 
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NS; 


lOV 


P06; 


POSiLT; 


vnT13: 


IOR1Z13; 


MOT 

B1,[I1TEHP1 

ROf 

CI,il3TBHPj 

SOB 

CI,BI 

;  CX  =  M13 

II 

H0II1I3 

CIP 

CX.II 

JL 

P0{ 

;  OT  <  DI  lOR  SLOPE 

ZCB6 

u,cx 

;  UCHU6E  DI  UD  DX 

HOT 

Bl.Ol 

HOT 

[8L0PI131.BL 

;  Set  code  for  high  slope 

HOT 

BX.OPPSET  IISL0PI13 

HOT 

I00TIHE13,BX 

;  Set  lootioen  to  BISL0PE13 

ROT 

[PIBST13],0 

;  Set  PirstU  to  Palse 

JHP 

POMLT 

HOT 

BL,0 

HOT 

[8L0PE13],BL 

;  Set  code  for  LOH  slope 

HOT 

BX.OPPSET  L0RSL0PE13 

HOT 

R00TIBEI3.BX 

SHL 

cx.l  ; 

CX  :=  2  »  DI 

HOT 

[TU1IBC13],CX 

;  IBCR  1  POR  1  *  3  :  2  »  DI 

SOB 

CX.BX 

HOT 

(DI13],CX 

;  DI13  (2  »  DI)  -  DX 

SOB 

CX.BX 

:  CX  2MBI  -  DX) 

HOT 

[TBR2IICI3],CX 

:  TiR21BC13  2*{DI-DX) 

JHP 

STBRT12 

XOR 

BX.BX 

;  LIRE  PROH  1  TO  3  IS  TERTICBL 

HOT 

[H0RIZIR13},BX 

;  HORII  IHCR  :  0 

HOT 

BX.OPPSET  TERTICBL13 

HOT 

R00T1IE13.BX 

HOT 

[SLOPE131.3 

;  Set  Slope  Code  :  3 

HOT 

[PIRST13],0 

;  Set  Picstl3  to  Palse 

IHP 

STBRT12 

;  BLL  THREE  POIRTS  BRE  BORIIOIT&L  DRBH  LIRE  PROH  1  •  3 

HOT 

IX,[I1TEHP1 

HOT 

[icoul.u 

;  ICORR  :  IITEMP 

HOT 

BX,[X1TEHP] 

HOT 

[LPLTl.BX 

;  LPIT  =  XITEHP 

ROT 

CX,[X3TEHP] 

HOT 

[RTLT],CX 

;  RTIT  =  X3TEHP 

ROT 

BX.dPlT] 

HOT 

CX.lRTlT] 

cm 

lORlIHE 

JHP 

PTRUIT 

STItT12; 
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P07: 


■N: 


P08; 


FOStLT; 


fnri2; 


MOf 

U,DI  ;  IX 

:sI2 

MOT 

Bi,l  :  Bi 

:  leriioBtal  locrnent 

MOf 

DI,[I1TBMP] 

SOI 

u,Di  :  II 

::  12  -  XI  :  0X12 

JX 

fDTlJ  ;  JUMP  IP  III!  PIOM  1  TO  2  IS  fIRTICIL 

JIS 

POT  ;  JOMP  IP  POSITIfl 

116 

U 

nc 

BI  ;  MIU  lOlIX  IBCt  POR  III!  1-2  BEGlTIfE 

MOf 

(1011X11121,11 

MOT 

U.[I1TEMP] 

lOf 

CI.[I2TEMP] 

SOI 

CI,U 

II 

lOf 

(COOITEIll.CX 

nx 

■01 

IIP 

1011X12 

CMP 

CX,II 

Jl 

POS 

DI  <  OX  LOI  SLOPE 

ICIG 

II.CI  ; 

nCHIIGE  DI  BID  DX 

MOf 

BL.Ol 

MOf 

[S10PE121,IL  ; 

Set  code  for  high  slope 

MOf 

BI.OPPSET  IISL0PE12 

MOf 

I00TIIE12,BI 

MOf 

(PIISTI2],0 

JMP 

POULT 

MOf 

11,0 

MOf 

(SlOPEi2],Bl  ; 

Set  code  for  LOO  slope 

MOf 

IX,0PP8ET  IORSLOPE12 

MOf 

I00TIIEI2,BX 

811 

cx,i  ; 

CX  2  *  DI 

MOf 

[fUlIIC12],CX  ; 

IBCR  1  POR  1  -  2  :  2  *  DI 

SUB 

CX,U 

MOf 

IDI121,CX  ; 

DI12  (2  ‘  DI)  ■  DX 

SOB 

cx,ix  ; 

CX  :=2»(DI  -  DI) 

MOf 

[fll2IICI2],CI  ; 

TIR21ICI2  2*(DI-DX) 

JMP 

STUT23 

XOI 

BI,BX 

IIBE  PIOM  I  TO  2  IS  fIRTICIL 

MOf 

[10IIXII12],BX  ; 

HORIX  IICR  :  0 

MOf 

U,[I0IIXII13] 

CMP 

U,BI 

JX 

BOTBfERT 

1  -  3  UD  1  -  2  IRE  fIRTICIL 

MOf 

■I,0PP8ET  fnTICIll2 

MOf 

I00TIME12,BX 

MOf 

II,[T1TEMP] 

MOf 

CI,[l2TEMP] 

SOB 

CX.BI  ; 

CX  :  0112 

MOf 

[C0DITER1],CI  ; 

Cotmteil  :  12-11 

MOf 

isiOPE12},03  ; 

Set  Slope  Code  :  3 
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lOf 

[PIRST12],0 

;  Set  Firstl2  to  False 

IMP 

8TUT23 

lOTIfllT: 

MO? 

U,[T1TEMP] 

HOI 

[ICORRl.Rl 

;  TCORR  :  IITEMP 

101 

CI,[I3TENP] 

801 

ex.u 

;  ESTIBLISI  COOITER 

P08B 

U 

:  SITE  XI 

NO? 

U,[X1TEMP] 

MOf 

[LPLT],U 

:  LFLT  and  RTLT  :  XITENP 

MO? 

IITLTI.U 

POSl 

a 

MO? 

IX,[LPLT] 

MO? 

CX.ilTLT] 

CILL 

lORLIRE 

;  Set  one  piiel  on  11  line 

SMLOOP: 

POP 

U 

:  Loop  to  set  one  pixel  on 

POP 

DX 

;  each  line  froi  rhl  to  t3 

CMP 

IX, 0 

;  thus  draiing  a  fertical  line 

J1 

11! 

JMP 

FTREXII 

RBI; 

DEC 

&X 

lie 

DX 

MO? 

[ICOIRl.DX 

PDSB 

DX 

POSH 

IX 

MO? 

EI,[LPLT] 

MO? 

CX,(RTLT] 

CILL 

lORLIRE 

JMP 

SMLOOP 

I0RII12; 

;  TIE  LIRE 

1  *3  IS  TIE  LEFT  BORDER  OF  TIE  TRI  RIGHT  BORDER 

;  IS  FORMED  BI  LIRE  2  •  3 

HO? 

IX, OFFSET  1ERTICIL12  :  This  routine  fill  return 

NO? 

I00TI1E12,IX 

;  X2  as  right  liiit 

NO? 

IX, 2 

NO? 

[I0IIZIRI2],IX 

MO? 

|SL0PE121,2 

;  Set  Slope  Code  to  horixontal 

HO? 

[F1RST12],0 

;  Set  Code  for  Firstl2  to  False 

ST&IT23: 

NO? 

IX, SI  ; 

IX  X3 

MO? 

BX,I 

SUB 

U,DI 

IX  X3  •  X2  =  DX23 

JZ 

1EIT23  ; 

JGHP  IP  HIE  FROM  2  TO  3  IS  1ERTICIL 

JRS 

FD)  : 

JDMP  IF  F0SIT11E 

REG 

IX 

REG 

BX  ; 

MIKE  lORIZ  IICR  FOR  LIRE  2  *  3  IEGITI1E 

PO): 

NO? 

[eORIZII23],BX 

NO? 

BX,[12TEMP] 
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Wf  CX,[I3TnP] 

SOB  CI,B1  ;  CX  :  DI23 

MOT  ICOOIfn2],CX 

JX  1011X23  :  2  •  3  IS  lOlIXOnil 

CMP  CX.IX 

JL  PIO  ;  DI  <  DX  LOI  Sion 

XCIG  U.CX  :  IXCIUGI  01  UD  DX 

MOT  BL.Ol 

MOT  [SLOPE23],BL  ;  Set  code  for  hijh  slope 

MOT  BX.OFPSXT  BISLOP123 

MOT  I00TI1I23,BX  ;  Set  IOOfIIB23  to  flISLOPI23 

IMP  PIOILT 


MOT  BL,0 

MOT  [SLOPE23],BL  ,*  Set  code  for  LOR  slope 
MOT  BX, OFFSET  LOflSLOPE23 

MOT  IOOTIIE23.BX 

PIQ&LT;  SBL  CX,1  :  CX  2  *  DI 

MOT  [TU1IIC23],CX  ;  IICR  1  FOB  2  •  3  ^  2  *  DI 

SOB  CX,BX 

MOT  [DI23],CX  ;  DI13  -  (2  *  DI)  •  DX 

SOB  CX,1X  ;  CX  ::  2*(SI  *  DX) 

MOT  [T»2I1C23],CX  ;  TBB2IIC23  2MDI-DX) 

JMP  DOIE23 

TERT23;  XOR  BX.BX  ;  HIE  FROM  2  TO  3  IS  TIRTICBL 

MOT  [IORIXII23],IX  ;  HORIX  IICR  :  0 

ROT  DX, OFFSET  TERTICRL23 

MOT  IODTIIE23,DX 

MOT  [SlOFI23],3  ;  Set  Slope  Code  for  Terticsl 

MOT  BX,[I2TEMP] 

MOT  CX,|l3TEMFj 

SOB  CX,BX  ;  CX  =  DI23 

MOT  IC00ITER21,CX 

JMP  DOII23 

10RIX23; 

MOT  OX, OFFSET  IORIXOIT1123 

MOT  IOOTIIE23,DX 

ROT  [SLOPE23],2  ;  Set  Slope  Code  For  Roriiootil 

DOIE23; 

MOT  BL,[S10FI12] 

MOT  II,[S10FI13} 

CMP  BL,0 

JX  FOSSPICCBSI  :  JOMF  to  this  libel  to  check  for 

;  I  possible  speciil  case 

MOT  [SFICCBSE],0  ;  Otheriise  set  speciil  cue  to  Filse 

CMP  11,0  ;  Check  to  see  if  Line  I  -  2  is 
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SETLE8TI2 

JIF 

CHECE23 

F08SFICCISI;  HOT 

[SFECCISE],! 

GIF 

EL.O  ; 

JE 

concK  ; 

CMF 

EL, 2 

JIX 

8ETLEST13  ; 

HOT 

[F1ISTI3],!  : 

JHF 

CHECI23 

COITCK: 

HOT 

El, [1011X1113] 

HOT 

II,[IOIIXII12j 

CHF 

EX,BX 

JX 

RIICIOIELOR 

CELL 

L0RSL0FE12 

HOT 

BI,[10RIXII12] 

SOB 

EX,BX 

HOT 

[ETLT],EX 

HOT 

[SFECCESEl.O 

HOT 

[firsti21,o 

SETU8TI3; 

CELL 

L0HSL0FE13 

HOT 

BX,[I0RIXII13] 

SOB 

IX,BX 

HOT 

[LrLT],EX 

HOT 

[FIRST13],0 

JHF 

CIECK23 

SETLkSTII: 

CELL 

LOI8LOFE12 

HOT 

BX,[I0RIXIII12] 

SOI 

EI,IX 

HOT 

[RTLT],U 

HOT 

[FIRST12],0 

JHF 

CIECK23 

IBICEOIELOR: 

HOT 

CI,[TEI2IIC13] 

HOT 

E1,[TEIIIIC13] 

HOT 

BI,EX 

BOB 

EX,CX 

HOT 

CI,[TEI1IIC12] 

HOL 

Cl 

HOT 

[L0US1],EX 

HOT 

[IIU8li,DX 

HOT 

EX.CX 

HOT 

CX,[TU2IICI2] 

SOB 

EX,CX 

;  iQisIope.  If  lofsiope  then  jup 
;  go  ekeek  line  2  -  3 


If  both  lilts  are  loislope  jnp 

to  eootiioe  checks 

check  to  see  if  I  ■  2  is  horixontil 

jiap  if  tot  horisoBtal 

set  ficstl3  to  trie 


:  coipare  horisootal  iicreioDts 
:  imp  if  both  lines  are  going  the 
;  the  sale  direction 


;  Steps  to  set  routine  for  1  ■  2 
;  to  last 


;  Steps  to  set  routine  for  1  -  3 
;  to  last 


;  Steps  to  set  r 


:  UKI  COFI  OF  fhllIIC13 


;  MOri  IU1IIC12  TO  U 
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m 

BX,[1IUS11 

CRP 

n,Di 

JI 

lOUSIEI 

IG 

L0fllIS12 

JL 

10IER1S13 

MV 

[P1R8T13],0 

MOV 

(PIRST12],1 

JMP 

SETIIST13 

lOUSiER: 

MOV 

I1,[L0AIS1] 

01 

11,11 

IS 

POSIEGCBSE 

01 

11, U 

IS 

L0RERIS13 

CMP 

Bl,ll 

3L 

L0VBRIS13 

IE 

DIIGLIIE 

LOmiS12: 

MOV 

[PIRST13],0 

MOV 

[piRSTl2j,l 

IMP 

SETLIST13 

LOiniSU: 

MOV 

[P1RST13],1 

IMP 

SETL1ST12 

DliGlIlE; 

C&IL 

L0IS10PE13 

MOV 

B1,[E0RIZII13] 

SOB 

11, B1 

MOV 

[LPIT],11 

MOV 

[PIRST13],0 

MOV 

[PIRST12],1 

MOV 

[L1ST23],0 

IMP 

STIRTDRIN 

POSIEGCESE: 

OR 

11,11 

IIS 

L0IERIS12 

CMP 

11,11 

IG 

L0IEIIS13 

IE 

OIIGIIIE 

MV 

[PIIST13],0 

MOV 

[rilST12],l 

IMP 

81TU8T13 

CIECI23: 

MV 

[118T23],0 

MV 

II,[S10PB23] 

CMP 

11,0 

IIS 

STIITDIIM 

MV 

II,(SPICC1SB] 

CMP 

11,1 

III 

STIITDIIM 

Ill 


HO? 

MOV 

CMP 

Jll 

MOV 

CMP 

III 

ULL 

MOV 

SOB 

MOV 

MOV 


;  DR&I  TRI&IGLE 
STBRTDRBi): 

MOV 

CMP 

J1 

POSH 

MOV 

MOV 

CALL 

POP 

DEC 

CMP 

I! 

LOOP29: 

MOV 

IRC 

MOV 

idea;  POSH 
CALL 
CALL 
MOV 
MOV 
CALL 
POP 
loop 

SECOIDBALFIIC; 

MOV 

CMP 

IE 

MOV 

lie 

MOV 

CALL 

MOV 


AI,[B0RI1II13] 

B1,[I0I1I1I23] 

AI.BI 

8TUTDRAI 

AL,[PIISTI3] 

AL,1 

STUTDRAI 

LOISLOPI23 

BI.[I0RI1II23] 

Al.BX 

[RTLTALTl.AX 

[lAST23].1 


CX,[COOITERl] 

CX,0 

SECOIDBALP 

ex 

BX,[LPLT] 

CX.(RTLT] 

lORLIlE 

ex 

ex 

CX,0 

SECOIDBALFIIC 


AX,[TCORR] 

AX 

[TCORR],AX 

ex 

ROOTIIE13 

ROOTIIE12 

BX,[LFLT] 

CX.iRTLT] 

lOILIlE 

ex 

Ioop2) 


CX,[COOITER2] 

CX,0 

lASTLIlESP 
AX,  [icon] 

U 

[rCORI],AX 

ROOTIRE13 

BL,[PIIST12] 


CMP 

BL,0 

JZ 

SECORDERLF 

CRLL 

IODTIRE12 

MOV 

CI,[RTLT] 

JMP 

SECSKIP 

SBCORDERLF: 

MOV 

CI.IRTLTRLT] 

SECSKIP; 

MOV 

BI,[LFLT] 

CRLL 

lORLIRE 

MOV 

CI,[CO(niTEX2] 

DEC 

Cl 

JZ 

IRSTLIRE 

JRS 

LOOP30 

JMP 

FTREIIT 

LO0P30:  POSE  CX 

MOV  U,[ICORR] 

IRC  II 

MOV  [ICORR],RX 

CRLL  ROOT1RE13 

CELL  ROOTIIE23 

MOV  BI,[LFLT] 

MOV  ci.lRTimri 

CRLL  HORLIRE 

POP  Cl 

LOOP  LOOP30 


LRSnilE;  MOV  RI,[ICORR] 

IRC  U 

MOV  (ICORR],RI 

MOV  BL,[PIRST13] 

CMP  IL,1 

JRZ  TIISCRSE 

CRLL  IOOTIRE13 

JMP  OTEERLIRE 


LRSTLIRESP:  MOV  RX,[TCORR] 

IRC  U 

MOV  [ICORI],RI 

MOV  BL,[FIRST13] 

CMP  BL,1 

JRZ  TBISCRSESP 

CRLL  mTIRI13 

JMP  OTBERLIRESP 


TBISCRSESP;  MOV 

RI,[I3TEMP] 

MOV 

[LFLT],RI 

MOV 

BL,[SLOPE12] 

CNP 

BL,0 

JIX 

DRilLiST 

ROT 

BL,[PIRSTI2] 

CNP 

BL,1 

JBZ 

DRULiST 

CiLL 

RODTIIE12 

2HP 

DRilLiSTSP 

OTBERLIIESP;  MOT 

BX,[X2TENP] 

CNP 

[RTLTl.BX 

DRBRLiSTSP; 

NOV 

BX,[LPLT] 

NOT 

CX.iRTLT] 

CBLL 

RORLIIE 

JNP 

PTREXIT 

TEISCRSE: 

NOV 

iX,[X3TBNP] 

NOT 

[LPLI],iX 

OTRERLIIE: 

NOT 

BL,[LiST23] 

CNP 

BL,1 

JRI 

OTHERCiSE 

NOT 

BX,[X3TENP] 

NOT 

(RTLTiLT],BX 

JNP 

DRiNLiST 

OTlERCkSE'. 

Ckll 

RODT1I123 

DRBRLIST: 

NOV 

BX,[LPLI] 

HOT 

CX,[RTLTALT] 

CiLL 

BORLINE 

FTREXIT:  POP  DI 

POP  81 


PillTri  EIDP 

PillTriC  PROC  il:IORD,yl:IORD,x2:IORD,i2:IORD,i3:IORD,73:«rd,D:BITE,o:byte,RIWbits:BITE 
PUBLIC  PillTriC 

;  This  routine  fills  triugles  that  need  to  be  clipped  to  fit  inside  the  lindow 
;  It  is  very  siiilar  to  PillTri  except  it  checks  to  take  sure  tbe  pixel  is  inside 
;  the  nindot  before  it  sets  its  color. 

;  Order  values  so  that  II  is  I  lin  and  13  is  I  tax 
POSB  SI 

PUSH  DI 
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;  Set  fill  color  for  this  liie  vsiig  color  code 


lOf 

U,l  ;  ll 

:=  fill  color»«*»«»*»»» 

HOY 

[COlORl.RL  ;  Color  *  fill  color*»“»«»»** 

MY 

[COlOlll.U 

lOY 

U.O 

NOY 

[COLOR2l.lL 

CUl 

COIFIGGIIFI 

lOR 

RL.RL 

MY 

[SLOFEIII.&L 

Set  all  slopes  eqnal  to  sero 

MY 

[SL0FE12],IL 

NOY 

[8LOFE23i,RL 

MY 

U.Il 

Non  all  1 1 1  nines  to 

NOY 

IX, 12 

to  processor  registers  before 

NOY 

CX,I3 

beginning  sort. 

NOY 

OX.XI 

Yalnes  are  sorted  fron  loiest  to 

NOY 

DI,X2 

highest  I  nines.  If  T  nines  are 

HOY 

SI.X3 

sane  then  sort  hj  loiest  X  nine. 

CNF 

IX, BX 

BEGIR  SORT 

IE 

FOIC 

REED  TO  CIECK  TO  ORDER  B!  X  YRLDES 

IRS 

F02C 

REED  TO  REORDER 

lEXTC: 

CNF 

BX.CX 

IE 

F03C 

REED  TO  CIECK  TO  ORDER  BT  X  YBLDES 

IIS 

F04C 

REED  TO  REORDER 

INF 

OIDEREDC 

FOIC: 

CNF 

DI.DX 

IRS 

REXTC  ;  ORDER  IS  OM!  IF  XI  -  X2  c  0  ELSE  GO 

:  TO  F02 

Ffl2C: 

ICIG 

U,BX  ;  Eichinge  X  ud  I  nines 

ICEG 

DX.DI 

INF 

REXTC  ;  Go  back  and  start  on  point  Tno. 

F03C: 

CNF 

81,01 

IIS 

ORDEREDC  ;  ORDER  IS  OKRI  IF  12  -  X3  ELSE  GO 

;  TO  F04 

F04C: 

XCIG 

BX,CX  ;  Exchange  X  and  I  nines 

XCIG 

DI,8I 

CNF 

1X,BX 

IE 

ILTCIECKC 

IRS 

REORDERC 

INF 

ORDEREDC 

ELTCBECKC: 

CNF 

DI.DX 

IIS 

OIDEREDC 

REORDERC: 

XCIG 

RX,BX  ;  Exchange  X  ud  T  nines 

XCIG 

DX.DI 

OIDEREDC; 
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wv 

[IHEMPl.U  ; 

Stft  the  CotiectlT  ordered 

NOf 

[I2TIMP],I1  : 

X  ud  I  Talaes 

KOT 

[l3TIMPj.CI 

lOf 

[IlTIMPj.DX 

HOT 

[X2TIMP],DI 

MOT 

[X3TIMP],SI 

MOT 

[IFLTl.DX  : 

InitUliie  left  Uiit,  right  liiit 

HOT 

[mti.DX  ; 

right  liiit  aitereate,  and  I  earreet 

MOT 

[ITLTUTl.DI 

MOT 

[iCDMl.lX 

MOT 

u.si  : 

RX  ::  X3 

MOT 

BX,1 

SOI 

U.DX 

RX  ::  X3  •  XI  :  DX13 

JZ 

TERT13C 

JOMP  IF  LIME  FROM  1  TO  3  IS  TERTIORL 

JIS 

F05C  ; 

JOHP  IF  POSITITE 

MEG 

U 

lEG 

BI 

MRKE  HORIZ  IIOR  FOR  LIRE  1-3  lEGRTITE 

rose: 

MOT 

[HORIZII13],BX 

MOT 

BX,[TlTENpj 

MOT 

CX,[I3TEMPj 

SOI 

ex, BE 

;  ex  I  DI13 

J! 

BORIZUC 

CMP 

CX,U 

F06C 

;  D!  <  OX  LOR  SLOPE 

ICIG 

U,CX 

;  EXeiRIGE  DT  RID  DX 

NOT 

IL,01 

NOT 

[SLOPE13],IL 

:  Set  code  for  high  slope 

NOT 

IX, OFFSET  IISLOPE13 

NOT 

ROOTIRE13,IX 

;  Set  Soatioei3  to  IISLOPE13 

NOT 

[FIRST13],0 

;  Set  FirstU  to  False 

JNP 

F061LTC 

rose; 

NOT 

BL,0 

MOT 

[SLOPE13],BL 

;  Set  code  for  LOR  slope 

MOT 

BX, OFFSET  LORSLOFE13 

MOT 

IOOTIIB13,IX 

FOilLTC; 

SEL 

CX,1 

;  ex  2  *  DI 

NOT 

[TU1IIC13],CX 

:  lies  1  FOR  1  -  3  s  2  *  DI 

SOI 

ex, IX 

MOT 

lDI13l,eX 

;  DI13  {2 »  DI)  -  OX 

SOB 

ex,RX 

;  ex  2*(M  -  DX) 

NOT 

lTRR2Iiei3],eX 

;  TRR2Iiei3  ::  2*(DI-DX) 

IMP 

STBRT12e 

vnrnc: 

lOR 

BX,BX 

;  LIIE  FROM  1  TO  3  IS  TERTIORL 
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NO? 

[IOSIlIll3l.il  ;  lORIE  IICI  :  0 

NO? 

U.OFPSET  ?nTICRL13 

NO? 

IOOTIIEi3,II 

NO? 

[Sl0ni3],3  ;  Set  Slope  Code :  3 

NO? 

[PIIST13],0  ;  Set  Pirstl3  to  False 

np 

STUT12C 

I0III13C: 

;  UL  TIRIR  POINTS  UE  lORIIOITU.  DRU  LINE  PRON  1  -  3 

NO? 

U.tllTINP] 

NO? 

DX.TLT 

CNP 

U.DI 

JS 

lOGO 

NO? 

DX.ISI 

CNP 

IX.  DX 

JIS 

lOGO 

NO? 

[TCOIRl.RX  ;  ICOIR  =  IITINP 

NO? 

BX.[X1TENP] 

NO? 

CX.[X3TEMP] 

CNP 

BX.CX 

JS 

IOC1UGE35 

ICHG 

BX.CX 

I0CIIIGE3S; 

NO? 

DX.TLX 

CNP 

BX.DX 

IIS 

RLLRIGRT29 

NO? 

BX.DX 

UlRIGiT2): 

NO? 

RX.BRI 

CNP 

U.IX 

as 

lOPROBO 

JNP 

FTREXITC 

lOPSOBO: 

CNP 

lX.CX 

as 

RILRIGIT30 

NO? 

cx.u 

1LLRIGIT30; 

CNP 

CX.DX 

as 

GORIUDO 

JNP 

FTREXITC 

GOlll&DO; 

Cill 

lOILIlE 

lOGO: 

ap 

FTREXITC 

STR1T12C; 

NO? 

RX.DI 

;  RX  ::  X2 

NO? 

BX,1 

;  IX  :  loriieital  lacreient 

NO? 

DX.IXITINP] 

SOB 

lX.DX 

:  IX  X2  -  XI  =  DX12 

a 

?XRT12C 

;  JONP  IF  nil  FRON  1  TO  2  IS  TERTICRL 

as 

F07C 

;  JONP  IF  POSITITE 
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lie 

II 

lie 

B1  ;  Mill  lOlIZ  IICR  FOR  HIE  1-2  IE6ITITE 

P87C: 

MT 

[IOIIZII12],Bl 

lOV 

IZ,[I1TEMP] 

Ml 

C1,[I2TIMP] 

SOI 

Cl, BE  ;  ex  :  DI12 

IN 

[COOITERU.CI 

JIZ 

INC 

IMP 

IOI1Z12C 

INC: 

CMP 

CI.U 

IL 

POIC  ;  DT  <  01  lOI  SLOPE 

ICIG 

lX.CI  ;  UCIUCI  DT  BID  DZ 

lOf 

11,01 

MOT 

[8LOPE12],IL  :  Set  code  for  bigh  slope 

MOT 

ll,OPPSEf  IISLOPE12 

MOT 

IOOTIIE12,BI 

MOT 

[PIIST12],0 

IMP 

F08ILTC 

rose: 

MOT 

IL,0 

MOT 

[SLOPE12],BL  :  Set  code  for  LOR  slope 

NOT 

II, OFFSET  LNSLOPE12 

MOT 

IOOTIIE12,BZ 

P08IITC: 

SIL 

CM  :  Cl  :=  2  *  01 

NOT 

[TIR11IC12],C1  ;  IICR  1  FOR  1  •  2  :  2  *  DT 

SOB 

CI,IX 

MOV 

[0112], ex  :  0112  ::  (2  *  01)  •  OX 

SOB 

CX,IX  ;  Cl  :52*(DI  -  OX) 

MOT 

[VII2IIC12],CX  :  TII2IIC12  ::  2*(DI-DX) 

IMP 

ST1RT23C 

fEKT12C: 

lOR 

BX,BX  :  LIRE  FROM  1  TO  2  IS  TERTICIL 

NOT 

[EORIZII12l,BX  ;  BORIZ  IICR  =  0 

MOT 

IX,[IORIZII13] 

CMP 

IX, IX 

JZ 

BOTITERTC  ;  1  -  3  UD  1  -  2  IRE  TERTICIL 

NOT 

BX,OFFSET  TEITICIL12 

MOT 

R0DTIIE12,BX 

NOT 

IX,[I1TIMP] 

MOT 

CX,[I2TBNFj 

SOB 

ex, BE  ;  ex  :  0112 

NOT 

[COOITERl],CX  ;  Couterl  =  12-11 

MOT 

[8LOPI12],03  ;  Set  Slope  Code  O 

MOT 

[FIRST12],0  ;  Set  Firstl2  to  False 

IMP 

STIIT23C 

BOTIfUTC: 

MOT 

IX,[T1TEMP] 

MOT 

CX,[t3TIMP] 
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wnoill: 


IOnOUf2: 


IOnOIIT3: 


lOraOHTC 


SNLOOPC; 


me: 


I0III12C: 


lOT 

DI.TII 

Ctt 

11, DI 

JIS 

lOPIOIIT 

WT 

U,DI 

Ml 

Di.m 

OP 

Dl.CI 

ni 

IOPIOIIf2 

MT 

C1,DI 

Mf 

[TCOUl.U 

;  icon  :  IITUP 

Ml 

Cl.U 

:  ISTUllSI  COOITII 

post 

11 

:  SlTITl 

lOf 

U.lllTlIPl 

lOf 

n.ni 

CIP 

11,01 

JIS 

IOPIOIIT3 

POP 

11 

JIP 

PTIIIITC 

lOV 

01,111 

CIP 

01,11 

JIS 

IOPIOBBf4 

POP 

11 

JIP 

PfltllTC 

NV 

[lPlf],U 

;  IPLT  ud  ITIT  :  llTnP 

Ml 

(ITIT],U 

POSI 

Cl 

lOf 

11,[IPIT] 

MT 

Cl,[lTlT] 

CILL 

lOILIlE 

;  Set  ni  piiel  en  11  lUe 

POP 

11 

;  loop  to  set  one  piiel  oo 

POP 

D1 

;  eicl  Ilie  froi  pIH  to  j3 

dP 

u,o 

;  ties  drwlBg  a  feitieal  liae 

Jl 

me 

JIP 

pnniTc 

Die 

11 

lie 

01 

lOf 

[icon], 01 

POSI 

01 

POSI 

11 

Ml 

B1,[IPLT] 

Ml 

Cl,[ITlt] 

CllL 

lOILIlI 

JIP 

SIIOOPC 

;  ni  LIII 

1  -3  IS  TIB  LIFT  Bonn  OF  Til  TII  IIOIT  lOIDIR 
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:  IS  POINID  II  LIII  2  -  3 

MO?  U.OPPSIT  TIITIClin  :  This  rontise  till  retnrs 

MOT  IODTIII12,U  :  12  is  rifht  liiit 

MOT  11,2 

MOT  [1011111121,11 

MOT  [SlOPI12l,2  ;  Set  Slope  Cole  to  horimttl 

MOT  |pilST12j,Q  :  Set  Code  for  Pirstl2  to  Poise 

ST1IT23C: 

MOT  11,SI  ;  11  ::  13 

MOT  11,1 

ni  11,DI  ;  11  ::  13  - 12 :  1123 

il  TnT23C  ;  lOMP  IP  LIII  PIOM  2  TO  3  IS  TIITICIL 

ns  pose  ;  JOMP  IP  POSITITI 

lie  II 

no  II  ;  IIU  lOlII  IICI  POI  LIII  2  -  3  IE61TITE 

P09C:  MOT  [IOEISII23],BI 

MOT  ll,[T2TENP] 

MOT  C1,[I3TIMP] 

SOB  Cl, II  ;  Cl  :  SI23 

NOT  [C00ITER2],CI 

JS  IORIE23C  ;  2  •  3  IS  lORIZOITlL 

CMP  Cl,  11 

JL  PIOC  ;  DT  <  01  LOR  SLOPE 

ICIG  11, Cl  :  EICHIIGE  01  110  01 

NOT  BL,01 

NOT  [SLOPE23],IL  ;  Set  code  for  high  slope 

MOT  II,OPPSET  I1SLOP123 

MOT  100TIIE23,II  ;  Set  ROOTII123  to  EISLOPE23 

JNP  PIOILTC 

PIOC: 

NOT  IL,0 

NOT  (SlOPE23l,IL  ;  Set  code  for  LOR  slope 

MOT  II,OPPSET  LORSLOPE23 

MOT  IOOTIIE23,II 

PIOILTC;  SIL  Cl,l  ;  Cl  ::  2  *  01 

MOT  [T1I1IIC23],CZ  ;  IICR  1  POR  2  -  3  :  2  *  01 

SOI  C1,1I 

MOT  [0123], Cl  ;  0113  :=  (2  *  01)  -  01 
SOB  Cl,ll  ;  Cl  2*(DI  '  DZ) 

MOT  [TU2IIC23],C1  ;  T1I2IIC23  2M0I’Ol) 

JNP  OOIE23C 

T1RT23C;  lOR  11,11  ;  HIE  PROM  2  TO  3  IS  TERTICIL 

MOT  [IOIIZII23l,BI  ;  lOIIl  IICR  =  0 

MOT  01,0PPSET  TIRTIC1L23 

NOT  RODTIIE23,OZ 

MOT  [SLOPE23],3  ;  Set  Slope  Code  for  Tertlcil 
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IORII23C: 


DOII23C; 


POSSKCCISECi 


COITCKC: 


8ITUST13C: 


SETimi2C; 


MOT 

IX,[I2TBMP] 

MOT 

CX,[I3TIMP] 

SOB 

CXJX 

;  CX  :  0123 

MOT 

[C0DITn2].CX 

JMP 

OOII23C 

MOT 

DX.OPPSXT  IOIIXOinL23 

MOT 

IOOTIIE23,DX 

MOT 

[SLOPE23],2 

;  Set  Slope  Code  For  loritonttl 

MOT 

BL,[8LOPE12] 

MOT 

BL,[8LOPE13] 

CMP 

BL,0 

IS 

P08SPECC1SEC 

;  JOMP  to  tils  label  to  check  for 
;  a  possible  special  case 

MOT 

[SPECCBSE],0 

;  Otheriise  set  special  case  to  False 

CMP 

U.,0 

;  Check  to  see  if  Line  1  -  2  is 

JI 

SETLEST12C 

;  loislope.  If  lovslope  then  jusp 

IMP 

CIECE23C 

;  go  check  line  2  -  3 

MOV 

[SPECCSSE],! 

CMP 

BL,0 

If  both  lines  are  lovslope  juip 

11 

COITCKC 

to  continue  checks 

CMP 

IL,2 

check  to  see  if  1  *  2  is  horiiontal 

III 

SETIKSTI3C  ; 

jnip  if  not  horiiontal 

MOT 

[FIRST13],1  ; 

set  firstl3  to  true 

JMP 

CIECK23C 

MOT 

BX, [10X111113] 

;  coBpare  horiiontal  increients 

MOT 

BX, [10X111112] 

;  juip  if  both  lines  are  going  the 

CMP 

BX,BX 

;  the  sue  direction 

11 

IIICIOIILOIC 

ClLl 

L0MSL0PE12 

;  Steps  to  set  routine  for  1  -  2 

MOT 

BX,[I0I111II2] 

;  to  last 

SOI 

U,IX 

MOT 

[IT1T],U 

MOT 

[SPECCISE],0 

MOT 

[ril8T12],0 

CBIL 

L0I810PI13 

;  Steps  to  set  routine  for  1  -  3 

MOT 

IX,[I0I111I13] 

;  to  last 

801 

IX, IX 

MOT 

[LPLT],BX 

MOT 

[FIIST13],0 

JMP 

CIICK23C 

CllL 

L0ISL0PE12 

;  Steps  to  set  r 
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MOV 

II.[IOIIIII12] 

SOI 

U.II 

MOV 

(mpj.ix 

MOV 

[PII8T12I.0 

CIICE23C 

mClOIILOIC: 

MOV 

CX.[VU2IIC13] 

NOV 

II,[VII1IIC13] 

NOV 

II, BI 

SOB 

IX. Cl 

NOV 

CX,[VU1IIC12] 

NDl 

CX 

NOV 

[LOIISII.IX 

NOV 

[IIIIS1],DX 

NOV 

U,CX 

MOV 

CX,[VII2IIC12] 

SOB 

IX,  CX 

MOL 

IX 

MOV 

IX.dlUSl] 

CMP 

IX, ox 

]1 

lOIISRIRC 

JO 

LOIERIS12C 

JL 

LOMEIIS13C 

MOV 

[PIR8T13],0 

MOV 

[PIRST12j,l 

JNP 

8ETL1ST13C 

I0US8ERC; 

MOV 

BX,[L01IS1] 

OR 

IX,IX 

]S 

POSIEGCISEC 

OR 

IX, IX 

JS 

IONERIS13C 

CMP 

IX,IX 

2L 

LOIIRIS13C 

JE 

DIIGLIIEC 

LOREIISI2C; 

NOV 

[riisri3],o 

MOV 

[PIIST12],1 

JNP 

smisTUc 

LOREIIS13C: 

MOV 

[FIIST13],1 

JMP 

SITIIST12C 

DIIGLIIEC: 

CILL 

IOISIOPI13 

NOV 

IX,[IOIIXII13] 

SOI 

IX,IX 

MOV 

[IPLTI.U 

NOV 

[PII8T13],0 

:  mi  coFT  OP  IUIIIC13 


:  MOVE  yuiiici2  to  u 
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MO? 

lOf 

IMP 

POSMSGUSIC:  01 
IIS 
CMP 
10 
J! 
MO? 
MO? 
IMP 

CIICK23C:  MO? 

MO? 

CMP 

HZ 

MO? 

CMP 

JIZ 

MO? 

MO? 

CMP 

JIZ 

NO? 

CMP 

JIZ 

CIIL 

NO? 

SOB 

NO? 

NO? 


[PIIST121,1 

[UST231.0 

STUTDUIC 

u.u 

10IIIIS12C 

11,11 

l0ini813C 

DIIGLIIIC 

[PIIST13],0 

[PII8T12],! 

8RL18T13C 

[UST231.0 

IL.[SLOPI23] 

IL,0 

STIITDI&IC 
ll,[SPICC18E] 
II.  1 

STUTDUIC 

U.[I0IIZII13] 

II,[IORIZII23] 

U,ll 

STUTDUIC 

U.,[PIIST13] 

BL,1 

STUTDUIC 

LOISLOPB23 

BI,[IOIIZII23] 

U,B1 

[mT&lT],U 

[LIST23],! 


;  DUI  TBIUGIE 
STUTDUIC; 

NO?  CI,[C00ITER1] 

CMP  CI,0 

JZ  GOSECOIDULPC 

POSE  Cl 

MO?  U,[TCORR] 

NO?  DI.TIT 

CMP  U,D1 

JS  UOPETOP 

NO?  U,[LPLT] 

MO?  CE.ilTlT] 

CMP  Cl, IX 

JIS  OUT) 

ICIG  U,CX 
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OUT): 

Mf 

U,TII 

Mf 

n,iu 

CIP 

IX, AX 

ns 

OUIIO  ;  mp  IP  UP?  LIIIT  IS  IIGIT  OP  LXPT  SCIXXI 

CXP 

ex, AX  :  IPLT  IS  OPP  scixn  so  CIXCI  to  six  ip  IIGIT 

;  LIIIT  IS  01  scun 

IS 

IIOIXTOP  ;  inp  IP  IIGIT  LIIIT  IS  OPP  LXPT  SIIX 
:  OP  SCIXXI 

lOf 

IX, AX  ;  SXT  LPLT  :  LIFT  lOIDXI 

CIP 

DX,CX 

ns 

ouliTi  ;  nip  IP  IIGIT  LIIIT  IS  01  scixn 

MOf 

CI,DI  :  IIGIT  LIIIT  IS  OPP  IIGIT  SO  lAKX  LIMIT 

np 

DIAIITl  ;  XQGAL  TO  IIGIT  OP  SCIXn  TIU  JOIP 

GOSBCOIOHtLFC: 

IIP 

SXCOIDIALPC 

OMIlO: 

CIP 

11,01  ;  CIXCK  TO  SIX  IP  LPLT  IS  01  SCIXXI 

IIS 

AIO?XTOP  ;  JOMP  IP  LXPT  LIIIT  IS  OPP  IIGIT  SIDX 

CIP 

DX.CI  :  CIXCK  IT  SIDX 

IIS 

DIAIITl  ;  IP  ITLT  IS  01  SCIXXI  JOMP 

lOT 

CI,DX  ;  CIAIGX  ITLT  TO  IIGIT  lOIDXI 

DIUITl; 

CALL 

lOILIIX 

ilOflTOP: 

POP 

Cl 

Die 

Cl 

CIP 

CI,Q 

11 

SXCOIDIALPIICC 

LOOP29C: 

POSH 

Cl 

CALL 

lOOTIIXU 

CALL 

I0IITIIX12 

lOP 

U,[ICDRK] 

lie 

AI 

lOf 

[ICOII],AI 

10? 

OI,TLI 

CIP 

AI,DI 

IS 

AI0PXT0P2 

10? 

DI,III 

CIP 

DI,AI 

IS 

IXLOIBOT 

M? 

II, [LPLT] 

10? 

CI,ilTLT] 

CIP 

CX,II 

IIS 

0KAI19 

XCIG 

II,CI 

OMI19; 

10? 

A1,TLI 

10? 

DI,III 
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CMP 

11.11 

JI8 

OUI20  :  HIP  IP  LIP?  LIMIT  IS  II6IT  OP  LIP?  SCIEII 

CMP 

ci.u  ;  LPir  IS  opp  setin  so  ciece  to  see  ip  eight 

;  LIMIT  IS  01  sctin 

JS 

U0TIT0P2  ;  inP  IP  II6IT  LIMIT  IS  OPP  LEPT  SIDE 

:  OP  sdin 

lOf 

11, U  ;  sn  LPLT  :  LIFT  Nun 

dP 

U.Cl 

at 

IIUIT2  :  HIP  IP  IIGIT  LIMIT  IS  01  SCIEII 

MOT 

Cl.Dl  :  IIGIT  LIMIT  IS  OPP  IIGIT  80  liU  LIMIT 

IIP 

DUIIT2  :  IQOIL  TO  IIGIT  OP  SCIIH  TIBI  inP 

0UI20: 

CMP 

u.N  :  aici  TO  sn  ip  lplt  is  oi  sciin 

IIS 

1I0TIT0P2  ;  Jnp  IP  LEPT  LIMIT  IS  OPP  IIGIT  SIDE 

CMP 

Dl.Cl  ;  CIICI  IT  SIDE 

IIS 

0I1IIT2 

MOT 

Cl.DI  ;  CIUGI  ITLT  TO  IIGIT  lOIDBI 

DIIIIT2: 

CILL 

lOILIII 

IIO?tTOP2: 

POP 

Cl 

loop 

loop2)C 

SECOIDBiLFIlCC: 

MOV 

C1,[C00ITEI2] 

CMP 

CI.O 

II 

G0LISTLIIE8PC 

cm 

I0DTIIE13 

lOf 

11,  [icon] 

lie 

11 

MOf 

[ICGIll.ll 

NOf 

IL,[PIIST12] 

CMP 

BL,0 

11 

SICOIDEILPC 

cm 

I00TIIE12 

NOP 

Cl,[ITlTl 

IMP 

SECSIIPC 

60USTIIII8PC: 

IMP 

L18TLIIISPC 

lUOIIOT: 

POP 

Cl 

inoiionopop: 

IMP 

PTIIIITC 

sicoiDiurc: 

lOf 

C1,[ITLT1LT] 

8ICSKIPC: 

lOf 

11. [LPLT] 

10? 

11,[ICUII] 

10? 

n.TLT 

CMP 

ll.Dl 
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38 

ABOTETOP3 

MOT 

DI.BII 

CMP 

DX.AX 

JS 

BELOIBOTIOPOP 

CMP 

CE.BE 

JIS 

OUI29 

XCIG 

BE, ex 

OUT29: 

MOT 

AX, TLX 

MOT 

DX.BIX 

CMP 

BI,AZ 

JIS 

OUI30  :  JOMP  IP  LIFT  LIMIT  IS  lIGBT  OP  LEFT  SCREEI 

CMP 

ex, AX  ;  LPLT  IS  OPP  SCIEEI  SO  CEECK  TO  SEE  IP  RIGHT 

:  LIMIT  IS  OR  SCIEEI 

JS 

AIOTETOP3  :  JOMP  IP  IIGIT  LIMIT  IS  OPP  LEPT  SIDE 
:  OP  SCIEEI 

MOT 

IX, AX  ;  SET  LPLT  ^  LEPT  BORDER 

CMP 

DX,CI 

JIS 

DRARIT3  ;  JOMP  IP  RIGHT  LIMIT  IS  01  SCREEI 

MOT 

CX.DX  ;  IIGIT  LIMIT  IS  OPP  lIGBT  SO  MARE  LIMIT 

IMP 

DIARIT3  ;  BQOAL  TO  RIGHT  OP  SCREEI  TIEI  JOMP 

OUT30: 

CMP 

II, DX  ;  CHECK  TO  SEE  IP  LPLT  IS  01  SCREEI 

JIS 

AB0TET0P3  ;  JOMP  IP  LEPT  LIMIT  IS  OPP  RIGHT  SIDE 

CMP 

OX, ex  ;  CHECK  RT  SIDE 

JIS 

DRAIIT3  ;  IP  RTLT  IS  01  SCREEI  JOMP 

MOT 

CX,DX  :  CHARGE  RTLT  TO  RIGHT  BORDER 

DIUIT3; 

Clll 

HORLIIE 

1B0?ET0P3: 

MOT 

CZ,[C0DITER2] 

DEC 

ex 

JZ 

LASTLIIEC 

JIS 

LOOP30C 

JMP 

FTREIITC 

LOOP30C; 

POSE 

ex 

CALL 

R0DTIIE13 

CALL 

IOOTIII23 

MOT 

AX,lICDRRl 

lie 

AX 

MOT 

[IC0RR],A1 

MOT 

DX,TLT 

CMP 

U,DX 

JS 

U0TIT0P4 

MOT 

DX,IRI 

CMP 

DX,AX 

JS 

IEL0II0T21 

MOT 

IX, [LPLT] 

MOT 

CX,[ITLTALT] 
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CKP 

CX.BI 

JBS 

OUI3) 

XCI6 

BI.CX 

0UT3): 

lOV 

BX.IIX 

Mf 

BX.BIX 

Cff 

BX,1I 

ns 

OUI40 

JUMP  IF  LBPT  LIMIT  IS  BIGHT  OF  LEFT  SCREEI 

CMP 

CX.U 

LPLT  IS  OPP  SCREEI  SO  CHECK  TO  SEE  IP  RIGHT 
LIMIT  IS  OH  SCREII 

JS 

IBOfITOP4 

JOMP  IP  RIGHT  LIMIT  IS  OPP  LEFT  SIDE 

OF  SCREEH 

lOf 

BX.BX 

SET  LPLT  :  LEFT  BORDER 

CIP 

ox.cx 

JIS 

DIUIT4 

JOMP  IP  RIGHT  LIMIT  IS  OH  SCREEH 

HOP 

CX.DX 

RIGHT  LIMIT  IS  OPP  RIGHT  SO  NiKE  LIMIT 

JIP 

DIMIT4 

EQO&L  TO  RIGHT  OP  SCREEI  TIEI  JUMP 

U10IB0T21: 

POP 

CX 

JMP 

niKXITC 

0UI4Q: 

CNP 

BX,DX 

;  CHECK  TO  SEE  IP  LPLT  IS  OH  SCREEI 

JBS 

BBOVETOP4 

;  JOMP  IP  LEPT  LIMIT  IS  OPP  RIGHT  SIDE 

CMP 

OX.CX 

;  CHECK  RT  SIDE 

JBS 

0IIIIT4 

;  IP  RTLT  IS  01  SCREEI  JOMP 

NOV 

CX,DX 

;  ClilGE  RTLT  TO  RIGHT  BORDER 

0IUI14; 

cm 

BORLIIE 

1B0VET0P4; 

POP 

CX 

LOOP 

LOOP30C 

LISTLIIEC: 

MOT 

RX,[TCDRR] 

lie 

iX 

NOT 

[ICOU],BX 

NOT 

DX.BRI 

CMP 

DX,U 

JS 

IELOIBOT20 

MOT 

IL,[PIIST131 

CNP 

IL,1 

JX 

PIXITIOC 

JMP 

TIISCBSEC 

PIXITIOC: 

CRLL 

I0DTIIE13 

JMP 

OTIXILIIEC 

BIL0IBOT20: 

JMP 

PTRUITC 

LISTLIIBSPC: 

MOT 

1X,[TCDII] 

lie 

IX 

MOT 

[ICORRl.KX 

MOT 

DX.III 
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CNP  DX.U 

JS  BIL0IB0T2 

MOT  Bl,[rilST13] 

CMP  BL,1 

III  TIISCBSBSPC 

CILL  IOOTIME13 

JMP  OTIULIBISPC 

TBISCBSBSPC;  MOT  BI,[I3TIMP] 

MOT  [LFLT],U 

MOT  BL,[SLOPE12] 

CMP  BL.O 

JIX  DUIUSTC 

MOT  BI.,[FIRSTI2l 

CMP  BL,1 

JIX  DRARLBSTC 

CALL  ROOTIIE12 

IMP  DRAMLA81SPC 


OTIERLIIESPC; 

MOT  IX,[X2TEMP] 

CMP  [RTLTl.BX 

DRAILAStSPC; 

NOT  BX,[LFLT] 

MOT  CX.iRTLT] 

CMP  CI,BI 

IIS  OEAI4$ 

XCB6  BX,CX 


OIUI49; 


OUI50: 


DRARIT5; 


NOT 

AX, TLX 

NOT 

DX.BRX 

CMP 

BX.AX 

IIS 

OKATSO 

JUMP  IP  LEFT  LIMIT  IS  RIGHT  OP  LEFT  SCREEN 

CMP 

CX.AX 

LPLT  IS  OFF  SCREEI  SO  CHECK  TO  SEE  IF  RIGHT 
LIMIT  IS  OR  SCREEI 

JS 

BELOIBOT2 

lOHP  IF  RIGHT  LIMIT  IS  OFF  LEFT  SIDE 

OF  SCREEI 

NOT 

IX, AX 

SET  LFLT  :  LEFT  BORDER 

CMP 

DX,CX 

IIS 

DRARIT3 

JONP  IF  RIGHT  LIMIT  IS  01  SCREEI 

NOT 

CX,DX 

RIGHT  LIMIT  IS  OFF  RIGHT  SO  MAKE  LIMIT 

IMP 

DIARIT5 

EQUAL  TO  RIGHT  OF  SCREEH  THE!  JUMP 

CMP 

IX,  DX 

;  CHECK  TO  SEE  IF  LFLT  IS  01  SCREEI 

IIS 

IBIOIIOT2 

;  JONP  IF  LEFT  LIMIT  IS  OFF  EIGHT  SIDE 

dP 

DX,CX 

;  CHECK  RT  SIDE 

IIS 

DIAIIT5 

;  IF  RTLT  IS  OH  SCREEI  JONP 

MOT 

CX,DX 

;  CIAIGE  RTLT  TO  RIGHT  BORDER 

CALI 

lORlIlE 
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IBLOIIOT2: 

IMP 

PnEXITC 

THISCISEC; 

NOT 

RX,[X3TENP] 

NOT 

[IPlTl.RX 

OTBESIIIEC: 

NOT 

ll,[UST23] 

CNP 

IL,I 

JII 

OTIERCRSEC 

NOT 

BX.[X3TENP] 

NOT 

[ITLTUTl.lX 

INP 

DRULiSTC 

OTIBIUSEC:  CELL 

IOOT1IE23 

DIERL&STC: 

NOT 

IX,[IFLT] 

NOT 

CX.IRTLT&LT] 

CNP 

CX,BX 

]IS 

OKAI5) 

XCHG 

BX,CX 

OK&I59; 

HOT 

U,TLX 

NOT 

DX.BRX 

CNP 

BE, BE 

JIS 

OMIiO  ; 

JONP  IF  LEFT  UNIT  IS  RIGIT  OF  LEFT  SCREEI 

CNP 

CX.BX  ; 

LFLT  IS  OFF  SCREEI  SO  CIECK  TO  SEE  IF  RIGIT 

« 

$ 

LINIT  IS  OR  SCREEI 

JS 

PTREXITC  ;  lONP  IP  RIGIT  UNIT  IS  OFF  LEFT  SIDE 

« 

t 

OF  SCREEI 

HOT 

BE, RE 

SET  LFLT  :  LEFT  BORDER 

CNP 

DE,CE 

as 

ORRRIT6  ; 

JONP  IF  RIGIT  UNIT  IS  01  SCREEI 

NOT 

CE,DX  ; 

RIGIT  LINIT  IS  OFF  RIGHT  SO  NIKE  LINIT 

ap 

DRRN1T6  ; 

EQGIL  TO  RIGIT  OF  SCREEI  TUI  JONP 

OMTfO; 

CNP 

BE,DE 

;  CIECK  TO  SEE  IP  LFLT  IS  01  SCREEI 

as 

PTREXITC 

;  JONP  IF  LEFT  LINIT  IS  OFF  RIGIT  SIDE 

CNP 

DE,CE 

;  CIECK  RT  SIDE 

JIS 

DRMITS 

;  IF  RTIT  IS  01  SCREEI  JONP 

NOT 

CE,DX 

:  CIUGE  RTLT  TO  RIGHT  BORDER 

DRUIT6: 

CUL 

lORlIlE 

FTREXIIC: 

POP 

DI 

POP 

81 

RET 

FillfriC 

nop 

Reitore  PROC 

POILIC  testore 
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:  lestores  default  graphics  coutoller  state  aud  returns  to  caller 


r 


> 


XOR 

BX,BX 

•1 

ee 

S 

OOT 

DX,BX 

;  restore  Set/leset  Register 

lie 

BX 

;  BI  0,  BL  ::  1 

OOT 

DI.U 

:  restore  Enable/leset  Register 

HOT 

BL,3 

B 

SI 

OOT 

DX,BI 

:  BL  ::  Datalotate/Puac  Select  i 

NOT 

BX,OFPOIh 

;  BI  ::  llinillb,  BL  ::  1 

OOT 

IX,BX 

;  restore  Bit  Hash  register 

RET 

Restore  lIDP 


PillRindou  PROC  PillColor:bTte,Rlfllbits:B7te 
POBLIC  PillRindou 

;  This  routine  fills  a  uindou  deternined  by  TLI,  TLI.  BRI,  BRI  uith 
;  the  color  set  hy  the  eariable  Pillcolor.  The  RKRbits  rariable  sets 
;  sets  the  controller  to  OR,  XOR,  or  BID  Logic  the  filling  to  the  pixel 
;  color  that  is  already  set. 

;  preserve  SI  i  01 

POSH  SI 

POSH  DI 

;  routine  for  Horixontal  lines  (slope  =  0) 

NOT  BL, PILLCOLOR 

HOT  [COLOR], BL 

CBLL  COlPIGGRBPH 

HOT  U,TLI 

NOT  II,1RI 

SOB  IX, BI  ;Establish  counter 
BDD  IX, 1 

NOT  [COOiriRIl.lX  ISBTE  COOITER 

HOT  IX, TLX 

•Of  ex,IRI 

•Of  [Ifltl],bi 

•Of  [rtltlj,ci 

CBll  PIXILBODR  ;  BI  lit  Hash 

;  ES:IX  *>  video  buffer 

;  CL  ::  I  bits  to  shift  left 
NOT  DI,IX  ;  IS:DI  ->  video  buffer 
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m 

Dl.U 

:  01  ::  lit  lask  for  first  byte 

lOT 

D1 

;  D1  ::  rexerse  bit  lask  for  first  byte 

811 

Dl.Cl 

lOT 

DM 

;  Dl  ::  bit  lask  for  first  byte 

MOV 

Cl,[ITlfl] 

UD 

CL.7 

lOK 

Cl, 7 

;  CL  ember  of  bits  to  shift  left 

MOV 

oL.orrh 

;  DL  ansbifted  bit  usk  for  rigbtiost 

;  byte 

Sll 

DL.CL 

;  OL  ::  bit  usk  for  last  byte 

:  deteriine  byte  offset  of  first  and  last  pixel  in  the  line 


NOV 

IX.IRVLTI] 

MOV 

II,[LPLT1] 

MOV 

CL.ByteOffsetShift 

SIR 

IZ,CL 

;  11  ::  byte  offset  of  x2 

SIR 

11,  CL 

;  11  ::  byte  offset  of  xl 

MOV 

Cl, 11 

SOI 

Cl, 11 

;  Cl  ::  (tbytes  in  line)  -  1 

;  get  graphics  controller  port  address  into  DZ 

NOV 

11,  D1 

;  II  ::  bit  usk  for  first  byte 
;  IL  ::  bit  usk  for  last  byte 

;  tentatife  begin  of 

loop  save  bx. 

cx,di,si 

lorixLineZ:  POSH 

11 

POSB 

Cl 

PDSI 

DI 

POSB 

SI 

MOV 

01,3CIb 

;  DI  Graphics  Controller  Port 

MOV 

11,8 

;  IL  ::  Bit  Mask  legister 

;  uke  Tideo  bnffer 

addressable  through  DS:SI 

POSI 

DS  ; 

preserre  DS 

P08I 

IS 

POP 

DS 

NOV 

81, DI 

;  D8:SI  •>  eideo  bnffer 

;  set  pixels  is  leftiost  byte  of  the  line 
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OE 

IE, IE 

JS 

L43F  :  jnq  if  Ijte  aligned  (  il  is  leftiost 

;  piiel  in  Ifte 

OE 

CI,CX 

JEZ 

L42F  ;  jnip  if  lore  than  one  bpte  in  the  line 

UD 

El, EE  ;  El ::  lit  Msk  for  1st  byte 

JMF 

nOET  144F 

142P: 

EOT 

11,11  ;  update  graplies  controller 

OOT 

Dl.U  ;  IE  ::  bit  lask  for  1st  byte 

lOTSB 

;  update  bit  planes 

DEC 

Cl 

;  lue 

a  fast  8084  laehine  iastruetiou  to  drat  tie  reiainder  of  tie  line 

L43F: 

FOF 

D8  ;  KIKE  DIT  SSGMEIT  IDDEBSSIBLE 

MOT 

IE, 11111111b 

FOSE 

DS  :  PEESEETE  OS 

FOSE 

ES  :  MIKE  VIDEO  BOFFER  IDDRESSIBLE  THEOOGB  DS;SI 

FOF 

DS 

OOT 

D1,IX 

EEF 

MOTSB  ;  Drat  line  a  byte  at  a  tine 

;  set 

piiels  in  the 

rightiost  byte  of  the  line 

144F; 

HOT 

II, EL  ;  IB  ::  bit  task  for  last  byte 

OOT 

DI,II  ;  update  graplies  controller 

MOTSB 

;  update  bit  planes 

FOF 

DS  ;  restore  DS 

MOV 

CI,[C00ITER1] 

DEC 

Cl 

JI 

L5$5 

;  Noee  loop  counter 

so  it  is  presorted 

MOT 

[CODITBKl],CI 

;  FOF  IEG18TEIS  TEET  EEEE  SITED 

FOF 

SI 

FOF 

DI 

FOF 

CX 

FOF 

EX 

;  CIU6I  8TUT  IDDIESS  TO  HIT  LIII 
IDD  DIJTTESPnillE 
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JV  l•rilliM2  ;  iik*  nctktr  h**  •>  lit*  t«  fill 
:  baekfrinf  color 


U5S: 

nr  ti 

nr  11 

ror  a 

nr  II 

nr  II 

nr  SI 

in 

riiiiiiioi  nir 

con  ms 
m 


0 
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